in reply to Re^2: Net::SSH::Perl, Net::SSH::Expect crashes script if host is unreachable
in thread Net::SSH::Perl, Net::SSH::Expect crashes script if host is unreachable
I ended up trying the long timeout thing and it did work but it would allow the value(in seconds) of the timeout to pass in between commands.
For example: timeout = 5
It will take 5 seconds to login, then it will take 5 seconds for the first command to be issued, then another 5 seconds for the next command, so on so forth. and finally 5 seconds for the close command.
So, in the end, the process ends up spending way too much time per device and therefore this was a show stopper for me.
The solution for me (since Salva's solution didn't work for me in this thread Net::OpenSSH multiple commands ) was to remove the username/password login and make it use public-key authentication. So far (knock on wood) I haven't had this problem again and the delay in between the commands is gone. This seems to finally round off this solution for me. Here is a sample of code I used to make this work. (taken from it's documentation)
# Starting ssh without password # 1) run the constructor my $ssh = Net::SSH::Expect->new ( host => "myserver.com", user => 'bnegrao', raw_pty => 1 ); # 2) now start the ssh process $ssh->run_ssh() or die "SSH process couldn't start: $!"; # 3) you should be logged on now. Test if remote prompt is received: ($ssh->read_all(2) =~ />\s*\z/) or die "where's the remote prompt?" $ssh->exec("whoami"); $ssh->exec("/sbin/ifconfig"); $ssh->exec("ls /"); ssh->close();
I know this post is old but I hope this helps someone anyway.
|
|---|