f****y
发帖数: 70 | 1 有谁解释一下：
use Net::Telnet::Cisco;
my $session1 = Net::Telnet::Cisco->new(Host => '111.157.143.5');
$session1->login('', 'ciscophee');
@shver1 = $session1->enable('pheecisco');
@shver1 = $session1->cmd('clear crypto isakmp');
@shver1 = $session1->cmd('clear crypto sa');
$session1->close;
foreach $line (@shver1){
print "$line";
}
是重起cisco router?
除了perl,还有其他方法可以实现吗？（远程操作cisco router) |
|
