Question

我正在尝试使用 Net::SSH2 在下面的Perl代码中，但是我收到了这个错误。

在test.pl第9行中不推荐在void上下文中调用connect Net :: SSH2：无法连接到xx.xx.xxx.xx：ssh：test.pl第9行的错误文件描述符。

use strict;

use Net::SSH2;
#use Net::SSH2::Expect;

#my $Hostname = 'xx.xx.xx.xx';

my $ssh = Net::SSH2->new();

#$ssh->timeout(10);

$ssh->connect('xx.xx.xx.xx');

有人可以帮帮我吗？

Answer 1

如果或者使用die_with_error将connect方法保留在内部帮助我修复了代码。

use strict;

use Net::SSH2;

my $ssh=Net::SSH2->new();

if($ssh->connect('xx.xx.xx.xx'))
  {
     print "successfully connected";

     $ssh->auth_password('username','password') or $ssh->die_with_error;

  }

不推荐在void上下文中调用connect

1 个答案: