I am trying to telnet routers whose ips are specified in a txt file to collect sh int output. It works well if password is incorrect but terminates if it failes to telnet.

Can someone please help me out. Many thanks!! 

#############################################

use Net::Telnet::Cisco;

open(fd, "iplist.txt")  or die "Can't open the file ip.txt";

while (<fd>)
{
    $ip = $_;
    chomp $ip;
    $usr = 'user';
    $ps = 'password';
    get_connect();
    get_data();
}
close lst;


sub get_data
{
    $ipnfl = $ip."_raw.txt";
    open(ifl,"$ipnfl");
    $opnfl = $ip.".txt";
    open (ofl,">$opnfl");
    while (<ifl>) 
    {
        if ((/^FastEthernet/) || (/^Serial/) || (/^BRI1/) || (/^Ethern
+et/) ||(/^ATM/) ||(/^Tunnel/) ||(/^Multilink/) ||(/^Dialer/) ||(/^Loo
+pback/) ||(/Internet address is/)) 
        {
            print ofl "$hostname\t";
            print ofl $_;
        }
    }
    close ifl;
    close ofl;
    
}

sub get_connect
{
    $router_IP = $ip;
    $ipfl = $ip."_raw.txt";
    open(fl,">$ipfl") or die "Error";
    $cs = Net::Telnet::Cisco->new( Timeout => 3000, Host => $router_IP
+) ;
    $cs->errmode("return");
    
      $cs->login( Name =>$usr, Password => $ps);
    

    @cmd_output = $cs->cmd( 'terminal length 0' );

    $hostname = $cs->last_prompt;
    chop $hostname;
    print fl "Hostname => $hostname.\n";

    print fl "\n\n ::::::::::Show interface output::::::::::::: \n";
    @cmd_output = $cs->cmd( 'show interface' ); 
    print fl @cmd_output;

    $cs->close;
    close fl;
}

#####################################

[download]
demerphq: Added markup to make the node readable

In reply to net telnet cisco; how to handle unable to connect by dhunt

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.