Perl forward SIGINTを `system`コマンドから親プロセスに転送する

Question

apt-cache search <some query>のように長時間実行するsystemコマンドを使用している場合は、^C経由で親のPerlプロセスに送信するSIGINTをそのような方法で転送する方法がありますすべての子プロセスが収穫されるということです。

この例には、適切な動作がありません。シグナルは子プロセスに送られます。

#!/usr/bin/env perl 
use strict; 
use warnings FATAL => 'all'; 
use autodie; 

# long running command on ubuntu, produces a ton of output. 
# replace with your favorite long running command 
system("apt-cache search hi"); 

print("Perl did not catch SIGINT even with autodie\n"); 

私はsystem("apt-cache search hi &")によって作成される子のPIDを獲得する方法を周りに検索しようとしたが、いずれかを見つけることができませんでしたので、私は、プロセスをINGのシグナルハンドラを書くfork INGとexecを試してみました。 apt-cache自体がcloneシステムコール経由でいくつかのプロセスを起動するため、これは機能しません。ハンドローリング私は私が欲しい、本質的に何を推測するプロセスツリーの一部を歩くと

#!/usr/bin/env perl 
use strict; 
use warnings FATAL => 'all'; 
use autodie; 

my $cpid; 

$SIG{INT} = sub { 
    kill 'KILL', $cpid; 
    exit; 
}; 

# long running command on ubuntu, produces a ton of output. 
# replace with your favorite long running command 
$cpid = fork; 
if ($cpid == 0) { 
    exec 'apt-cache', 'search', 'hi'; 
} 

print "Perl did not catch SIGINT even with autodie\n"; 

をクリーンアップするためにいくつかのロジックがsystemが立ち上げた子プロセスが原因そうSIGINTなどの信号に出るかどうかを決定する方法のどちらかであります私は、Perlスクリプト自体を後にするか、子プロセスを歩いてプロセス管理の奇妙なケースがきれいに移植可能に処理されるようにすることができます。

Answer 1

子プロセスグループの先頭にしてから、プロセスグループ全体に信号を送信します。

#!/usr/bin/perl 

use strict; 
use warnings; 
use autodie; 

use POSIX qw(setpgid); 

my $child_pid; 

$SIG{INT} = sub { 
    kill INT => -$child_pid if $child_pid; 
    exit(0x80 | 2); # 2 = SIGINT 
}; 

my $child_pid = fork(); 
if (!$child_pid) { 
    setpgid($$); 
    exec 'apt-cache', 'search', 'hi'; 
} 

WAIT: { 
    no autodie; 
    waitpid($child_pid, 0); 
    redo WAIT if $? == -1 and $!{EINTR}; 
    die $! if $? == -1; 
} 

exit(($? >> 8) | (0x80 | ($? & 0x7F)));