Perl（SSHからリモートホストにコマンドを発行し、終了するのを待たずにセッションを終了します）

Question

スクリプトはリモートサーバーに行き、Net :: SSH :: Perlを使用してシェルスクリプト "snap.sh"を実行します。 このシェルスクリプトはほぼ10分で終了し、私のperlプログラムは出力されるまで待機します。 リモートサーバー上でシェルスクリプトを実行すると、プログラムはリモートサーバー上でスクリプトが終了するのを待たずにSSHセッションを終了する必要があります。

my $ssh = Net::SSH::Perl->new($host, protocol =>2); 
$ssh->login($username, $password); 
my $cmd="./bin/snap.sh"; 
my($stdout, $stderr, $exit) = $ssh->cmd($cmd); 

Answer 1

テストされていない、あなただけssh -fが何を行うことはできませんか？

my $ssh = Net::SSH::Perl->new($host, protocol =>2); 
$ssh->login($username, $password); 
defined (my $pid = fork) or die "fork: $!"; 
if ($pid) { 
    close $ssh->sock; 
    undef $ssh; 
} else { 
    my $cmd="./bin/snap.sh"; 
    my($stdout, $stderr, $exit) = $ssh->cmd($cmd); 
    POSIX::_exit($exit); 
} 

Answer 2

nohupコマンドを参照してください。ここにはquick post to get you startedがあります。完全を期すためにここに...あなたのケースで動作するはず何です

my $cmd="nohup ./bin/snap.sh &"; 

Answer 3

リモートホスト上でバックグラウンドジョブを実行するには、ローカルマシン上のすべての制御用ttysとの関連付けも解除する必要があります。

my $cmd = "./bin/snap.sh </dev/null> /dev/null 2>&1 &"; 

私はnohupを使用していると思います。

Answer 4

私はこれにNet::OpenSSHを使用します。それはスポーンメソッドを持っていますあなたが探しているものを正確に行います。

my %conn = map { $_ => Net::OpenSSH->new($_) } @hosts; 
    my @pid; 
    for my $host (@hosts) { 
     open my($fh), '>', "/tmp/out-$host.txt" 
     or die "unable to create file: $!"; 
     push @pid, $conn{$host}->spawn({stdout_fh => $fh}, $cmd); 
    } 

    waitpid($_, 0) for @pid;