所以我正在尝试创建一个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);
答案 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);
}
}
我希望这会对你有所帮助。 最好的问候!