fork()子进程与waitpid()

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

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