Re^2: Net::SSH::Perl, Net::SSH::Expect crashes script if host is unreachable

[Anonymous Monk]

in reply to Re: 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 specified timeout => 20 in the constructor, and problem was solved.As mine was slow network i took 20seconds as timeout.

[mlebel]

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.