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 }

在這裏， 若是在父進程中改用wait()會出現阻塞
每個子進程退出後會向父進程發送chld信號
waitpid()中-1表示等待全部子進程， wnohang表示不阻塞
waitpid()返回子進程的進程ID， 出錯返回-1