关于perl fork

toniz

估计Linux是报错，父进程还能继续往下走，而window是直接父进程死了。。

picbhan

回复 11# toniz


    发现windows下的fork和waitpid与unix下的差别很大，估计实现细节不同。比如下面的代码：

1. use POSIX ":sys_wait_h";
   
2. my %children;
   
3. my $count = 0;
   
4. 
   
5. $SIG{CHLD} = sub {
   
6.     while ((my $pid = waitpid(-1, WNOHANG)) > 0) {
   
7.         if ($children{$pid}) {
   
8.             delete $children{$pid};
   
9.             $count--;
   
10.             print "$pid reaped. count is $count.\n";
    
11.         }
    
12.     }
    
13. };
    
14. 
    
15. my $num = 0;
    
16. while ($num++ < 34) {
    
17.     my $pid = fork();
    
18.     until (defined $pid) {
    
19.         print "Failed to fork, num is $num, count is $count, try to reap zombies.\n";
    
20.         sleep 5 if $count;
    
21.         print "Zombies reaped, count is $count, try to fork again.\n";
    
22.         $pid = fork();
    
23.     }
    
24.     $children{$pid} = 1;
    
25.    
    
26.     if ($pid == 0) {
    
27.         sleep 5;
    
28.         exit 0;
    
29.     }
    
30.     $count++;
    
31. }
    
32. $num = 0;
    
33. while ($count) {
    
34.     $num++; print "sleep 50. num is $num, count is $count.\t";
    
35.     sleep 50；
    
36. }

复制代码

在windows下竟然无法正常收割，unix下则可以。

toniz

回复 12# picbhan


    WINDOW没怎么弄过。不过你可以先确认下是信号捕捉的问题，还是进程收割的问题。改成print看看CHLD有没触发。