voidのコンテキストでの呼び出しの呼び出しは非推奨です

Question

私は Net::SSH2 を以下のPerlコードで使用しようとしていますが、このエラーが発生しています。 xx.xx.xxx.xxへの接続に失敗しました：：SSH：test.plライン9で不正なファイルディスクリプタtest.pl線9
ネット:: SSH2で廃止されて無効コンテキストで接続呼び出し

。

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を使用する場合、またはdie_with_errorを使用して接続メソッドを内部に保持すると、コードを修正できました。

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; 

    }