fork后,如何让父进程在子进程后结束?

打靶归来

fork后,如何让父进程在子进程后结束?
fork 了10个子进程,想在父进程中收割10个子进程后退出
下面的代码怎么父进程在子进程前就结束了.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use POSIX qw(WNOHANG setsid);
   
4. my $maxchild=10;
   
5. my @child_pid;
   
6. foreach my $item (1..$maxchild) {
   
7.         defined (my $child=fork()) or die "Can't fork:$!";
   
8.         if ($child==0){
   
9.                 sleep 1;
   
10.                 push @child_pid,$$;
    
11.         }
    
12. }
    
13. foreach(@child_pid){
    
14.         print "Wait:$_\n\n";
    
15.         waitpid($_,0);
    
16. }
    

复制代码

[ 本帖最后由 打靶归来 于 2008-4-17 09:11 编辑 ]

khandielas

You need to check to make sure child_pid is done, and probably you want to check how pid is completed, good or bad?

something like this:

$exitpid = wait;
if ($? != 0) {
   # pid exits poorly, done something
}
else {
   $maxchild --;
}

if ($maxchild == 0) {
   print "all done\n";
}

apile

$SIG{CHLD}
please catch this signal in your parent process,
if all childs done it's job , the parent can die..