First thing, you can use the <code> tag to format your code for easier reading, and it also seems like you're not using 'use strict' and 'use warnings'. I highly recommend both.
That being said, I'd also recommend looking into the Net::SSH::Expect module. It (to me) seems easier to use than the vanilla Expect.pm. Below is a snippet of code that I've used with it:
my $ssh = Net::SSH::Expect->new (
host => "$serverlist[$host]",
user => "$user",
raw_pty => 1,
restart_timeout_upon_receive => 1,
timeout => 6,
ssh_option => " -x",
);
It makes for pretty easy communication with the remote server, with several functions to send and receive data. You can receive for X seconds, read one line at a time, etc.
According to the documentation on CPAN, you can use it with or without password authentication. In my environment, I have ssh keys distributed, so I've not used the password version, but the docs say it's available.
| [reply]
[d/l] |
The application is built with perl 5.005, not able to get Net::Perl::SSH or Net::Perl::Expect compatible to this version of perl & have limitation in upgrading the perl version, hence used the existing perl module Expect.pm
| [reply] |
You can always install a private copy of a modern perl, one that isn't 12 decades old
| [reply] |