while (<PATCHLIST>) {
print "Verify run....\n";
my ($switch, $distro, $port) = split;
+
+ if ($switch eq "e71-6") {
+ print "There is no e71-6\n";
+ next;
+ }
my ($row, $place, $ipnet, $vlan, $ip, $dip) = switch_info($switch, $distro, $port);
print "Switch: $switch, Distro: $distro, vlan: $vlan\n";