perl - Perl IPC::実行、親の終了時にプロセスを強制終了

Question

親が死んでいるときにプロセスを強制終了するIPC::Runに与えることができるオプションはありますか? または、親プロセスが終了したときに子プロセスを強制終了する簡単な方法はありますか? 親でシグナルをキャッチすることでこれを行うことができることはわかっていますが、これを行う簡単な方法が既に存在する場合は、車輪を再発明したくありません。これが をキャッチしない可能性があることは理解していますが、それは問題ありませんSIGKILL。より合理的な方法で親を殺す予定です。

Answer 1

END ブロックを使用してクリーンアップします。

my @ipc_run_harnesses;
END { $_->kill_kill for @ipc_run_harnesses }

...
for my $start ( 1..2 ) {
    push @ipc_run_harnesses, IPC::Run::start( "while true; do sleep 1; echo running $start; done" );
}
sleep 10;
exit;