fork()子进程与waitpid()

 1 #!/usr/bin/perl
 2 use warnings;
 3 use strict;
 4 use POSIX ":sys_wait_h";
 5  
 6 $SIG{CHLD} = sub{
 7   my $pid;
 8   while($pid = waitpid(-1, WNOHANG) > 0){
 9     print "$pid ----------进程已回收!----------------\n"
10   }
11 };
12 foreach(1..5){
13   my $forpid = fork();
14   if($forpid == 0){
15     foreach(‘a‘..‘z‘){
16       print "这是子进程".$_."\n";
17     }
18     print "子进程结束!\n";
19     #sleep(10);
20     exit 0;
21   }
22   else{
23     print "这里父进程!\n这要比子进程晚退出才能收到waitpid的返回值!\n";
24     print "Done\n";
25     #my $pid = wait();
26     sleep(10);
27   }
28 }