等待多个子进程结束的问题

tsubasawzj

我想让所有子进程结束以后再打印all OK，代码如下

1. use POSIX ":sys_wait_h";
   
2. my $num_proc = 0;
   
3. my $count=0;
   
4. $SIG{CHLD} = sub { $num_proc-- };
   
5. my @fileSet=glob "/home/work/tmp/logBK/*";
   
6. foreach(@fileSet){
   
7.     my $pid=fork;
   
8.     if (!defined($pid)) {
   
9.         exit;
   
10.     }
    
11.     if ($pid == 0) {
    
12.         &chidProc($_);
    
13.         print "Child $count : end\n";
    
14.         exit 0;
    
15.     }
    
16.     $num_proc ++;
    
17.     do {
    
18.         sleep(1);
    
19.     } until ($num_proc < 10);
    
20.     $count++;
    
21. }
    
22. 
    
23. while (waitpid(-1, WNOHANG) > 0){
    
24.     1;
    
25. }   
    
26. print "all OK\n";
    

复制代码

Child 4 : end
Child 5 : end
Child 3 : end
Child 6 : end
Child 2 : end
Child 7 : end
Child 1 : end
Child 8 : end
Child 9 : end
Child 0 : end
Child 11 : end
Child 14 : end
Child 12 : end
Child 10 : end
Child 16 : end
all OK
[root@domain test]# Child 13 : end
Child 15 : end
Child 17 : end
Child 18 : end
Child 19 : end
Child 20 : end
Child 21 : end
Child 23 : end
Child 22 : end

结果all OK在子进程结束前就被打印出来了。。。
为什么
while (waitpid(-1, WNOHANG) > 0){
    1;
}
无效呢？