fork()子进程与waitpid()

 #!/usr/bin/perl
 use warnings;
 use strict;
 use POSIX ":sys_wait_h";

 $SIG{CHLD} = sub{
   my $pid;
   while($pid = waitpid(-, WNOHANG) > ){
     print "$pid ----------进程已回收!----------------\n"
   }
 };
 foreach(..){
   my $forpid = fork();
   if($forpid == ){
     foreach('a'..'z'){
       print "这是子进程".$_."\n";
     }
     print "子进程结束!\n";
     #sleep(10);
     exit ;
   }
   else{
     print "这里父进程!\n这要比子进程晚退出才能收到waitpid的返回值!\n";
     print "Done\n";
     #my $pid = wait();
     sleep();
   }
 }

在这里， 如果在父进程中改用wait()会出现阻塞
每一个子进程退出后会向父进程发送chld信号
waitpid()中-1表示等待所有子进程， wnohang表示不阻塞
waitpid()返回子进程的进程ID， 出错返回-1