in reply to Cisco Telnet
use Net::Telnet::Cisco; for ($i = 1; $i <= 254; $i++){ $device = "172.16.$i.251"; my $session = Net::Telnet::Cisco->new(Host => "$device", Input_log => "perllogrouter/router$i.log",); eval { $session->login('admin', 'admin') or die "Could not connect +to $device" }; if ( $@ ){ # log here #; next } #some command $session->cmd ("show running-config "); $session->close;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Cisco Telnet
by 5mi11er (Deacon) on Aug 16, 2013 at 19:42 UTC | |
|
Re^2: Cisco Telnet
by mvip (Acolyte) on Aug 19, 2013 at 11:29 UTC | |
|
Re^2: Cisco Telnet
by mvip (Acolyte) on Aug 20, 2013 at 05:37 UTC |