Help for this page

Select Code to Download

Select or download this

use Net::Ping;
use Net::Telnet::Cisco;
...
    print "\nDevice OFFLINE!!  Connection aborted!!\n\n";
}
$p->close();

Select or download this

C:\perl scripts>perl regexp_test.pl --host 10.22.49.19

...
  cablelength long 0db

No T1 interfaces found