perl多进程中，父进程的sleep失效的问题，求帮助

gknhjqx

#!/usr/bin/perl
use warnings;
use strict;

use POSIX ":sys_wait_h";

my $collect;
my $zombies = 0;

$SIG{CHLD} = sub {$zombies++};

for (my $i = 0; $i < 5; $i ++) {

    my $pid = fork();

    if ($pid == 0) {

        print "Child $i : My pid = $$\n";
        sleep(2);
        print "Child $i : end\n";
        exit 0;
    }

    if($zombies > 0) {
       while( ($collect=waitpid(-1, WNOHANG)) > 0 ) {
            $zombies--;
        }
    }
    sleep(5);                                                         #这个5秒好像没用，发现屏幕的输出间隔是子进程中的sleep(2)，是否与信号有关呢？求帮忙解释一下
    print "$i ------ end\n";
}
exit 0;

兰花仙子

这个我已回复N次了。child的退出信号SIGCHLD会唤醒parent的sleep，这是POSIX设计之一。

gknhjqx

回复 2# 兰花仙子


真的搜到以前的回复了，感谢仙子不耐其烦的回答。我再看一遍提问的智慧