摆脱Perl中的僵尸

Question

我在perl中编写了一个服务器，等待tcp连接。 每次服务器收到一个消息，它都会派一个新的孩子来负责它，并继续侦听另一个连接。（因此，它无法等待SIGCHILD。）该孩子执行了应做的事情并退出，但继续执行“活着”的僵尸。 请问如何解决？

Answer 1

设置$SIG{CHLD} = 'IGNORE'; 让系统自动为您处理。

或将$SIG{CHLD}设置为子例程和waitpid ：

use POSIX qw( WNOHANG );

$SIG{CHLD} = sub {
    while( ( my $child = waitpid( -1, WNOHANG ) ) > 0 ) {
        print "SIGNAL CHLD $child\n";
    }
};

如果您真的想了解它的工作原理（当然可以！：），则应该阅读perlipc。

这里还有更多有关堆栈溢出的信息