[求助]多进程访问某url，子进程退出时候，发现无法捕获到CHLD信号

MayIKissU

需求来源：测试某功能的时候需要经过某设备访问大量的url（下面使用单一的url进行实验）
代码编写环境：ubuntu
问题描述：
控制进程维持在10个，访问总共1000个url，发现首先创建的10个子进程，在子进程退出的时候，并没有被我的信号处理函数处理到，
导致系统一致是10个僵死进程，没有进行以下的创建。

代码如下

1. 
   
2. #! /usr/bin/perl -w
   
3. use strict;
   
4. use warnings;
   
5. use LWP;
   
6. use HTTP::Request;
   
7. use POSIX ":sys_wait_h";
   
8. 
   
9. my $collect = 0;  #收割僵死进程计数
   
10. my $num_pro = 0;  #创建进程个数
    
11. my $zombies = 0;  #接收到子进程退出信号后计数
    
12. 
    
13. $SIG{CHLD} = sub {$zombies++;};  #当子进程退出要收割的时候
    
14. foreach(1..1000){
    
15.         my $pid = fork();    #总共创建1000个，
    
16.       if(!defined($pid)){  #查看创建子进程成功与否
    
17.       die "can not fork";              
    
18.         }
    
19.         if($pid){            #父进程
    
20.       }
    
21.         elsif($pid == 0)  #子进程
    
22.       {     
    
23.         print "child\n";     #调试信息
    
24.       my $lwp = LWP::UserAgent->new(timeout => 1);
    
25.         my $request = HTTP::Request->new(GET => "http://www.baidu.com");
    
26.         $request->header(Accept => "*/*");
    
27.         my $reponse = $lwp->request($request);
    
28.         exit(0);             #退出子进程
    
29.       }
    
30.         $num_pro++;          #创建一个子进程，计数加1
    
31.         
    
32.         print $zombies,"\n"; #调试信息
    
33. 
    
34.       if($zombies>0)       #回收子进程
    
35.       {
    
36.             while(my $test=waitpid(-1,WNOHANG) > 0)
    
37.             {
    
38.                print "in?\n";        #调试信息
    
39.            $zombies--;
    
40.                $collect++;
    
41.             }
    
42.          }
    
43. 
    
44.         while(($num_pro-$collect)>10)  #维持子进程个数
    
45.       {
    
46.                sleep 1;
    
47.          }
    
48. }

复制代码

图上#调试的地方为自己调试的信息，发现问题出在子进程创建退出之后，chld信号并没有被捕获，导致了 $zombies并没有增加，从而我的子进程并没有被回收！

帮忙看下把  版友们！

flw

POE

我早就不自己处理信号了。

MayIKissU

回复 2# flw
额！出问题拉 我想弄明白哪里出的这个问题！然后再用其他方式写这个！！有提示的方向么 版主！


   

兰花仙子

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

真佩服你，相当杯具，这样做意义何在？
你要自己处理SIGCHLD的话，起码也要调用waitpid回收子进程。

MayIKissU

回复 4# 兰花仙子
亲！上面那个是计数嘛，exit一个就增加一个计数，下面代码里的

1. 
   
2.       if($zombies>0)       #回收子进程
   
3. 
   
4.       {
   
5.             while(my $test=waitpid(-1,WNOHANG) > 0)
   
6. 
   
7.             {
   
8. 
   
9.                print "in?\n";        #调试信息
   
10. 
    
11.                $zombies--;
    
12. 
    
13.                $collect++;
    
14. 
    
15.             }
    
16. 
    
17.          }
    
18. 
    

复制代码

用来回收子进程！个人觉得每次exit后发送信号CHLD，zombies就加1啊，但是我调试的过程中发现进程是exit了，但是信号没有捕获到，打印出的zombie值为0！

   

kingwmj

mark .....

kingwmj

回复 2# flw


    POE可以处理信号问题吗?我怎么没听说过,版主解释一下啊.

flw

kingwmj 发表于 2011-12-30 09:43
回复 2# flw

对呀，为什么你就没听说过呢？真奇怪。

nixiaoweihunter

POE把很多底层的东西都封装起来了

kingwmj

回复 8# flw

不奇怪,水平比较差