Perl将SIGINT转发给分叉的子进程

时间:2015-11-04 01:17:26

标签: perl fork sigint

所以我正在尝试创建一个Perl程序,它会分配一个worker并等待它完成。在我的实际用例中,我需要分叉许多工作者并等待它们,所以我想我会尝试一个单独的工作者的测试用例。我担心的是,当我在终端中运行这个程序时,发送^C不会杀死父项,即使信号处理程序看起来应该收获子进程并导致父进程正常退出。我正在尝试使用waitpid使父级保持活动状态,以便它可以接收信号并将它们传递给子级,但父进程似乎完全忽略^C

use strict;
use warnings FATAL => 'all';
use POSIX ":sys_wait_h";

my $cpid;

sub reap_children_and_exit {
    defined $cpid and kill 'HUP', $cpid;
    exit 0;
}

$SIG{INT} = \&reap_children_and_exit;

my $child_text = <<'EOF';
perl -e 'while (1) { printf "%s\n", rand() }'
EOF

$cpid = fork;
if ($cpid == 0) {
    exec($child_text)
}

waitpid($cpid, WNOHANG);

2 个答案:

答案 0 :(得分:3)

  

我正在尝试使用waitpid来保持父级

您告诉waitpid立即返回。将WNOHANG更改为0

答案 1 :(得分:1)

如果您不需要自己实现并且可以使用模块,我建议:https://metacpan.org/pod/Parallel::Prefork 该模块可以轻松地为您创建和管理所有工作人员/孩子,此外,它还可以节省内存使用量。

如果您打算创建一个守护程序,还有另一个可以管理分支的守护程序:https://metacpan.org/pod/Daemon::Control

或尝试此解决方案:

use strict;
use warnings FATAL => 'all';
use feature 'say';
use POSIX ":sys_wait_h";

BEGIN {
    sub reap_children_and_exit {
        my $signame = shift;
        my $pid = shift;
        defined $pid and kill $signame, $pid;
        say "$pid => Received '$signame' !";
        exit 0;
    }
    $SIG{INT} = \&reap_children_and_exit;
}

my %children;

$SIG{CHLD} = sub {
    # don't change $! and $? outside handler
    local ($!, $?);
    while ( (my $pid = waitpid(-1, WNOHANG)) > 0 ) {
        delete $children{$pid};
        reap_children_and_exit('HUP', $pid);
    }
};

my $child_text = <<'EOF';
perl -e 'while (1) { printf "%s\n", rand(); sleep 1; }'
EOF

while (1) {
    my $pid = fork();
    die "Cannot fork" unless defined $pid;
    say "I'm the PID $pid";
    if ($pid == 0) {
        say q{I'm the parent};
        exit 0;
    } else {
        $children{$pid} = 1;
        system($child_text);
    }
}

我希望这会对你有所帮助。 最好的问候!