Perl SSHエラー - シグナル1で殺されました

Question

私はSSH経由で接続しようとしましたが、エラーメッセージ "シグナル1で殺されました"

これは私のコードです。

use CGI; 
use Net::OpenSSH; 

my $machineCon = 'my-server'; 
my $username = 'my-username'; 
my $password = 'my-password'; 

$ssh_obj = Net::OpenSSH->new(
    $machineCon, 
    strict_mode => 0, 
    master_opts => [-o => "StrictHostKeyChecking=no"], 
    ctl_dir => "/tmp/", 
    timeout => 200, 
    strict_mode => 0, 
    user  => $username, 
    password => $password, 
    ssh_cmd => '/usr/bin/ssh' 
); 

if(!$ssh_obj->error) 
{ 
    # Is my process running? 
    my $PROC = $ssh_obj->capture("pwd"); 
    print $PROC; 
} 
else 
{ 
    print $ssh_obj->error 
} 

私は多くのコメントを見てきましたが、それは私を助けません。 アドバイス ありがとう

Answer 1

新しい（）メソッド呼び出しでこのオプションを追加する必要があります。

kill_ssh_on_timeout => 0 

コードが現在タイムアウトしていない場合は、接続の問題があることがわかります。

そして、より多くの助けのために、ちょうどすべてのエラーを表示するには、この行を追加します。

$Net::OpenSSH::debug = ~0;