通过PERL进行SSH

Question

我想登录其他服务器中的其他shell。所以我写了下面的代码。

#!/volume/perl/bin/perl
use lib qw(/volume/labtools/lib);
use Net::SSH::Perl;

my $host = 'wd-shell2';
my $cmd = "cd /volume/ftp/private/det/os;ls -lrt jinstall*";
my $user = 'joydeep';
my $pass = '';
my $ssh = Net::SSH::Perl->new("$host", debug=>0);
$ssh->login($user, $pass);
my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
print "\n$stdout\n";

我不确定，我是否写得对。我在tts-shell1中，如何登录wd-shell2并使用代码执行我的操作（更正后）。请帮帮我。

Answer 1

首先，请始终在每个perl脚本的顶部包含use strict;和use warnings;。

其次，您应该启用debug模式，以便模块为您提供尽可能多的有用信息：

my $ssh = Net::SSH::Perl->new("$host", debug => 1);