Even after removing eval function, still the cursor just blinks and doesn't go further to fetch the command result. I changed my code to be very simple like below:
use Strict; use warnings; use Net::SSH::Perl; use Net::SSH2; $ENV{HOME} = "PATH"; print "Server Name to Connect:"; chomp($host = <STDIN>); print "User Name to Login:";chomp($LoginName = <STDIN>); print "Password for $LoginName:";chomp($pswd = <STDIN>); #!/usr/bin/perl -w my $command = "date"; my $ssh = Net::SSH::Perl->new($host); my $status = $ssh->login($LoginName,$pswd); my($stdout,$stderr,$exit) = $ssh->cmd($command); print "$stdout\n";
In reply to Re^2: Net::SSH::Perl login
by ChristieJS
in thread Net::SSH::Perl login
by ChristieJS
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |