Question

perl主进程如何等待多个子进程结束

主进程如何等待多个子进程结束
本人想完成这样的任务：
在主进程中创建多个子进程(比如3个)，各个进程完成不同的任务，
现在想要等所有子进程都结束主进程才执行后面的语句，
如何实现这样的操作？
#!/usr/bin/perl
use POSIX ":sys_wait_h";
my $a=10;
for($i=1;$i<=3;$i++){
my $pid=fork();
if (!defined($pid)) {
print "Error in fork: $!";
exit 1;
}
if ($pid == 0 ) {
if($i==1){
sleep(9);
$b1=$a+1;
exit 0;}
elsif($i==2){
sleep(5);
$b2=$a+10;
exit 0;}
else{
sleep(3);
$b3=$a+100;
exit 0; }
}
if ($zombies > 0) {
while (($collect = waitpid(-1, WNOHANG)) > 0) {
$zombies --;
}
}
}
print "~~~~~~~~~~split~~~~~~~~~~~\n";
print "$b1\t$b2\t$b3\n";
只是一个简单的例子，不是为了实现这个结果，而是为了实现子进程都结束主进程才执行后面的语句。

Answer 1

将“use POSIX ":sys_wait_h";”去掉，还有在主进程中打印子进程中的变量是不对的，主进程不知道子进程的状况，除非你用pipe将变量值传给主进程，
##################################################
#!/usr/bin/perl
#use POSIX ":sys_wait_h";
my $a=10;
for($i=1;$i<=3;$i++){
my $pid=fork();
if (!defined($pid)) {
print "Error in fork: $!";
exit 1;
}
if ($pid == 0 ) {
if($i==1){
sleep(9);
$b1=$a+1;
print "$b1\t";
exit 0;}
elsif($i==2){
sleep(5);
$b2=$a+10;
print "$b2\t";
exit 0;}
else{
sleep(3);
$b3=$a+100;
print "$b3\t";
exit 0; }
}
}
print "~~~~~~~~~~split~~~~~~~~~~~\n";
while (($collect = waitpid(-1, WNOHANG)) > 0) {
1;
}

##################### 输出 ##########
bsd2# perl test.pl
~~~~~~~~~~split~~~~~~~~~~~
110 20 11 bsd2#

Answer 2

用Parallel::ForkManager就行了。
例子见：http://search.cpan.org/~dlux/Parallel-ForkManager-0.7.6/ForkManager.pm
其中 $pm->wait_all_children; 等待所有子进程结束