I come seeking wisdom. Script logs into switches on my list but nothing seems to happen.
Following error:
[ 5.546199] tr nope, doesn't (yet) match (?-xism:[\/a-zA-Z0-9._\[\]-]+
+ ?(?:\(config[^)]*\))? ?[#>] ?$)
[ 5.550072] du SEEN:
Here is code in question:
@version_info = $session_obj->cmd('term length 0');
$session_obj->cmd('show int | i proto.*notconnect|proto.*admin
+istratively down|Last in.* [6-9]w|Last in.*[0-9][0-9]w|[0-9]y|disable
+d|Last input never, output never, output hang never');
$session_obj->cmd('conf t');
foreach (@version_info) {
if ($_ =~ /(.*) is down/) {
$_ = $1;
print $_;
#$session_obj->cmd('conf t');
$session_obj->cmd("int $_");
$session_obj->cmd('shutdown');
}
}
$session_obj->cmd('exit');
$session_obj->close;