in reply to Perl Expect is not sending multiple commands
Could you be Suffering from Buffering for the log file? Could you have the network device syslog the commands being executed instead of trying to rely on logging them in your script instead?
FWIW, here's what I used to do in 7+ year old script:
Not familiar with the sub method you are using, but the last time I used Perl Expect was several years ago. :(print $expect_instance "show system\r"; ( $which, $why, $match, $before, $after ) = $expect_instance->expect( +$Timeout, '#'); if( ! $which ) { mylog( $dev, 'sho_sys', $why ); return; } $sho_sys = $before;
Elda Taluta; Sarks Sark; Ark Arks
My deviantART gallery
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Perl Expect is not sending multiple commands
by essej1 (Novice) on Sep 18, 2012 at 15:33 UTC | |
by Argel (Prior) on Sep 18, 2012 at 18:08 UTC |
In Section
Seekers of Perl Wisdom