perl多进程回收不到子进程

辛风涯

最近遇到一个头疼的问题，采用fork()进行多进程处理数据，最多允许一次允许50个子进程，但发现经常会遇到回收
不到子进程的情况，导致产生了一堆僵尸进程，程序就无法往后面运行了。能不能帮我解决一下。下面是我的代码。

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use POSIX ":sys_wait_h";
   
5. 
   
6. sub mutiple_ref_content_count{
   
7.         my $max_process_ref_num = 50;
   
8.         my $num_proc = 0;
   
9.         my $num_collect = 0;
   
10.         my $collect;
    
11.         my @all_pid;
    
12.         my @All_ref = sort keys %ref_infor;
    
13.         ## == get the child signal ==
    
14.         $SIG{CHLD} = sub { $num_proc-- };
    
15.         for (my $i=0;$i<=$#All_ref ;$i++) {
    
16.                 my $pid = fork();
    
17.                 if (!defined($pid)) {
    
18.                         print "Error in fork: $!";
    
19.                         exit 1;
    
20.                 }
    
21.                 if ($pid == 0) {
    
22.                    ## == child proc ==
    
23.                         my $pid = $;
    
24. 
    
25.                         push @all_pid,$pid;
    
26.                         sleep(10);
    
27.                         single_ref_content_count($All_ref[$i]);
    
28.                         exit 0;
    
29.        
    
30.                 }
    
31.                 $num_proc ++;
    
32.                 ## == if need to collect zombies ==
    
33.                 if (($i-$num_proc-$num_collect) > 0) {
    
34.                         while (($collect = waitpid(-1, WNOHANG)) > 0) {
    
35.                                 $num_collect ++;
    
36.                         }
    
37.                 }
    
38.                 while ($num_proc >=$max_process_ref_num ) {
    
39.                         sleep(11);
    
40.                 }
    
41.         }
    
42. 
    
43.         while ($num_proc >=1) {
    
44.                 sleep(10);
    
45.         }
    
46. }
    

复制代码

RE_HASH

try this and see if it works:

1 while waitpid(-1, WNOHANG) > 0;