perl – 如何在不杀死孩子的情况下超时waitpid？

这不是我想要的,我想保持进程运行但是从waitpid发送它.

我试图解决的底层问题是一个守护进程,它有一个处理队列的主循环.任务一次处理一个.

如果任务挂起,整个主循环挂起.绕过这个fork()和waitpid似乎是一个明显的选择.如果任务挂起,循环仍然挂起.

我可以想到我根本不使用waitpid的解决方法,但我必须以另一种方式跟踪运行进程,因为我仍然希望一次处理一个任务并行可能挂起任务.

我甚至可以杀死任务,但我想让它运行来检查究竟出了什么问题.还可以转储一些调试信息的kill处理程序.

无论如何,解决该问题的最方便的方法是在可能的情况下超时waitpid.

编辑：

这就是我使用fork()和waitpid的方式,它可能更清楚孩子的意思.

my $pid = fork();

if ($pid == 0){
    # i am the child and i dont want to die
}
elsif ($pid > 0) {
    waitpid $pid,0;
    # i am the parent and i dont want to wait longer than $timeout
    # for the child to exit
}
else {
    die "Could not fork()";
}

编辑：

使用waitpid WNOHANG做我想要的.这种用法是良好的做法还是你会采取不同的做法？

use strict;
use warnings;
use 5.012;
use POSIX ':sys_wait_h';

my $pid = fork();

if ($pid == 0){
    say "child will sleep";
    sleep 20;
    say "child slept";
}
else {
    my $time = 10;
    my $status;
    do {
        sleep 1;
        $status = waitpid -1,WNOHANG;
        $time--;
    } while ($time && not $status );

    say "bye";
}