Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: command is timing-out when execute the script

by protist (Monk)
on Sep 03, 2012 at 12:39 UTC ( #991423=note: print w/replies, xml ) Need Help??

in reply to command is timing-out when execute the script

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(""); $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 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.

Replies are listed 'Best First'.
Re^2: command is timing-out when execute the script
by marto (Bishop) 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.

      was just making it legible...ran it through sed

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://991423]
[marioroy]: Only 2 backslash \\n
[marioroy]: LA no space before Albums
[Lady_Aleena]: Good guh! I think I will use File::Find when working in perl. That is too many toothpicks.
[marioroy]: mp3info must be in the PATH
[marioroy]: LA ++
[Lady_Aleena]: marioroy, this is forcing me to learn perl modules to use instead.
[marioroy]: qx isn't fun if having to backslash ' and " and \.
[marioroy]: LA ++ ok.
[marioroy]: I wrote a mp3info script to see the arguments received with print "@ARGV\n";
[marioroy]: And compared with running find on the command line.

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (6)
As of 2017-04-23 21:26 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (432 votes). Check out past polls.