Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: Net::Telnet::Cisco and IOS-XR

by Anonymous Monk
on Jun 29, 2010 at 18:32 UTC ( #847177=note: print w/replies, xml ) Need Help??


in reply to Re: Net::Telnet::Cisco and IOS-XR
in thread Net::Telnet::Cisco and IOS-XR

Hi ,

With following prompt I am able to get cli outputs for IOS-XR commnad

 Prompt => '/(?m:^(?:[\w.\/]+\:)?[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/'

But when I in following specific commnads the perl script is timing out !!

1. When a IOS-XR command in certain scenriois which does not respond any output

Example - RP/0/RP0/CPU0:crs2.abc#sh bgp ipv4 unicast summary | i XXX RP/0/RP0/CPU0:crs2.abc#

2. sh platform

3. admin mode

Does anyone experience same or know a fix for below

Thanks in advance ,

Danny Pinto

Replies are listed 'Best First'.
Re^3: Net::Telnet::Cisco and IOS-XR
by Anonymous Monk on Nov 23, 2011 at 06:52 UTC

    hi , i am facing the same problem...i can successfully able to telnet into the router but when i give "sh run | in route" it doesn't work..please help...i can able to see telnet success and login sucess

    use Net::Cisco; open(CONFIG,">config.txt"); print CONFIG "Router ip,Status\n"; open(ROUTERIP,"routerip.txt")or die "couldn't open routerip.txt"; open(COMMAND,"command.txt")or die "couldn't open command.txt"; while(<COMMAND>) { chomp($_); $comm=$_; } $count=0; while(<ROUTERIP>) { chomp($_); $router=$_; $tl=0; $t =Net::Telnet::Cisco->new(Host=>$router,Prompt => '/(?m:^(?:[\w.\/]+ +\:)?[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$)/' +,Timeout=>7,Errmode=>'return') or $tl=1; $lg=0; my @output = (); if($tl != 1) { print "$router Telnet success\n"; $t->login('8945','kuhdie') or $lg=1 ; if($lg != 1) { print "$router Login success\n"; print "$comm"; @output=$t->cmd(string=>"sh run | in route"); print "@output\n"; $t->close; } else { $loginstat="Login Failed"; print "$router $loginstat\n"; print CONFIG "$router,$loginstat\n"; } } else { $telnetstat="Telnet Failed"; print "$router $telnetstat\n"; print CONFIG "$router,$telnetstat\n"; } close(CONFIG); $count++; }
      #!/usr/bin/perl use strict; use warnings; use Net::Cisco; open(CONFIG,">config.txt"); print CONFIG "Router ip,Status\n"; open(ROUTERIP,"routerip.txt")or die "couldn't open routerip.txt"; open(COMMAND,"command.txt")or die "couldn't open command.txt"; my $comm=<COMMAND>; my $count=0; while(<ROUTERIP>) { chomp($_); my $router=$_; my $tl=0; my $t =Net::Telnet::Cisco->new(Host=>$router,Prompt => '/(?m:^(?:[\w.\ +/]+\:)?[\w.-]+\s?(?:\(config[^\)]*\))?\s?[\$#>]\s?(?:\(enable\))?\s*$ +)/') or $tl=1; my $lg=0; #my @output = (); my @output = (); if($tl != 1) { print "$router Telnet success\n"; $t->login('2345','346dfgsadf') or $lg=1 ; if($lg != 1) { print "$router Login success\n"; @output=$t->cmd(string=>"$comm",prompt=>'/IN-CHN-TDL-CRS-CBBI#/'); print CONFIG "@output\n"; print @output; #if($output[0] ne '') #{ #chomp(@output); #print "@output\n"; #print CONFIG "$router,$output[0],$output[1],$output[2],$outpu +t[3],$output[4]\n"; #} #else #{ #print "no config\n"; #print CONFIG "$router,no config\n"; #} $t->close; } else { my $loginstat="Login Failed"; print "$router $loginstat\n"; print CONFIG "$router,$loginstat\n"; } } else { my $telnetstat="Telnet Failed"; print "$router $telnetstat\n"; print CONFIG "$router,$telnetstat\n"; } close(CONFIG); $count++; }
      hi monks ..you can refer my code for cicso XR IOS..it worked for me..
Re^3: Net::Telnet::Cisco and IOS-XR
by Anonymous Monk on Jun 30, 2010 at 08:07 UTC
    This question is in the place, only few of commands are working anybody knows why?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://847177]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (9)
As of 2018-01-16 11:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How did you see in the new year?










    Results (177 votes). Check out past polls.

    Notices?