in reply to
Re: Problems with Net::OpenSSH
in thread Problems with Net::OpenSSH
Thank you to all especially Salva and the anonymous monk. After I read the comments here again, I went back and did some work. The following code works perfectly! Does anyone know whether or not Net::OpenSSH is ithread safe?
$| = 1;
my $username = '';
my $password = '';
my $enable = '';
my $ip = '10.105.0.62';
my $ssh = Net::OpenSSH->new("$username:$password\@$ip", timeout => 30)
$ssh->error and die "unable to connect to remote host: ". $ssh->error;
my ($pty, $pid) = $ssh->open2pty("show ip arp")
or die "unable to run remote command show ip arp";
my $expect = Expect->init($pty);
my $debug and $expect->log_stdout(1);
print "$. $_"