command is timing-out when execute the script

balup has asked for the wisdom of the Perl Monks concerning the following question:

I am using NET::TELNET module to configure a router. I am facing the following issue. My Script : ===========

#!/usr/bin/perl

use strict;
use warnings;
use Net::Telnet;

#Connecting the DUT:

my $t = Net::Telnet->new (
        Timeout    => 3,
        input_log  => "D:/Profiles/admin/Desktop/input.log",
        );

$t->open("192.168.210.2");
$t->waitfor('/[\W login:]gi/');
$t->print("admin");
$t->waitfor('/Password:/');
$t->print("cisco");


$t->waitfor('/[\W\>]/');
$t->print("enable");
$t->waitfor('/[\W\#]/');
$t->print("configure terminal");
$t->waitfor('/[Enter configuration commands, one per line.  End with C
+NTL\/Z.]/');
$t->waitfor('/[\W\(config)#]/');
#$t->print("show version");


#STEP 1 : Intersting Traffic configuration:

@lines = $t->cmd("ip access-list 0.100");
$t->waitfor('/[\W\(config)#]/');
@lines = $t->cmd ("permit ip 192.168.1.0/24 192.168.101.0/24 log rule-
+precedence 111");
$t->waitfor('/[\W\(config)#]/');
$t->print ("commit write memory");
$t->waitfor('/[\W\(config)#]/');
$t->print ("show context");
[download]

PROBLEM: =======

When I execute this script, script is "timing-out at line 61". That is "@lines = $t->cmd("ip access-list 0.100");"

Its executing only first command.

Please help me to resolve this issue.

Thanks in advance.

Comment on command is timing-out when execute the script Download Code

Replies are listed 'Best First'.
Re: command is timing-out when execute the script by RichardK (Parson) on Sep 03, 2012 at 14:20 UTC
What makes you think this is a problem with your perl? Are you sure that `"ip access-list 0.100"` is a valid command for the device you're connecting to?	[reply] [d/l]
Re: command is timing-out when execute the script by protist (Monk) on Sep 03, 2012 at 12:39 UTC
I figured I could help most by reformatting your post. I am using NET::TELNET module to configure a router. I am facing the f +ollowing issue. My Script : =========== #!/usr/bin/perl use strict; use warnings; use Net::Telnet; #Connecting the DUT: my $t = Net::Telnet->new ( Timeout => 3, input_l +og => "D:/Profiles/admin/Desktop/input.log", ); $t->open("192.168.210.2"); $t->waitfor('/\W login:gi/'); $t->print("admin"); $t->waitfor('/Password:/'); $t->print("cisco"); $t->waitfor('/\W\>/'); $t->print("enable"); $t->waitfor('/\W\#/'); $t->print("configure terminal"); $t->waitfor('/Enter configuration commands, one per line. End with CN +TL\/Z./'); $t->waitfor('/\W\(config)#/'); #$t->print("show version"); #STEP 1 : Intersting Traffic configuration: @lines = $t->cmd("ip acce +ss-list 0.100"); $t->waitfor('/\W\(config)#/'); @lines = $t->cmd ("permit ip 192.168.1.0/24 192.168.101.0/24 log rule +-precedence 111"); $t->waitfor('/\W\(config)#/'); $t->print ("commit write memory"); $t->waitfor('/\W\(config)#/'); $t->print ("show context"); PROBLEM: ======= When I execute this script, script is "timing-out at + line 61". That is "@lines = $t->cmd("ip access-list 0.100"); " Its executing only first command. Please help me to resolve this iss +ue. Thanks in advance. [download]	[reply] [d/l]
Re^2: command is timing-out when execute the script by marto (Cardinal) on Sep 03, 2012 at 12:51 UTC
Code tags are for code and data, everything else does not need to be within code tags. See Markup in the Monastery. The post is already flagged to add code tags where appropriate.	[reply]
Re^3: command is timing-out when execute the script by protist (Monk) on Sep 03, 2012 at 13:27 UTC
was just making it legible...ran it through sed	[reply]
Re: command is timing-out when execute the script by NetWallah (Canon) on Sep 04, 2012 at 14:24 UTC
Try using the "debug" option in Net::Telnet to show you the actual dialogue. The other possibility is that you are using a pre-11.1 version of the Cisco IOS, which does not support extended access-lists. I hope life isn't a big joke, because I don't get it. -SNL	[reply]