接收不到子进程推出信号

lpsir

1. 
   
2. #!/usr/bin/perl -W
   
3. 
   
4. $flag = 1;
   
5. 
   
6. if (!defined($kidpid = fork())) {
   
7.     # fork returned undef, so failed
   
8.     die "cannot fork: $!";
   
9. } elsif ($kidpid == 0) {
   
10.       for($i=0;$i<3;$i++)
    
11.       {
    
12.               print "I am child\n";
    
13.               sleep(3);
    
14.       }       
    
15. } else {
    
16.                 # fork returned neither 0 nor undef,
    
17.                 # so this branch is the parent
    
18.                 foreach $a (keys %SIG)
    
19.                 {
    
20.                         print "$a.............$SIG{$a}\n";
    
21.                 }
    
22.     print "Parent...........\n";
    
23. }
    
24. 
    
25. $SIG{'CHLD'} = 'my_sigint_catcher';
    
26. while($flag)
    
27. {
    
28.         print "Waiting........\n";
    
29.         sleep(1);
    
30. }
    
31. 
    
32. sub my_sigint_catcher {
    
33.         print "子进程推出\n";
    
34.     waitpid($kidpid, 0);
    
35.     $flag = 0; # set a flag
    
36. }
    

复制代码

我的操作系统是redhat
接收不到 CHLD 信号

请指教！！