perl多进程主进程等子进程结束

最新推荐文章于 2019-03-11 01:32:00 发布

xiaocao9903

最新推荐文章于 2019-03-11 01:32:00 发布

阅读量1.9k

点赞数

分类专栏： perl 文章标签： perl 多进程

perl 专栏收录该内容

23 篇文章

订阅专栏

本文通过一个Perl脚本示例展示了如何使用fork创建子进程，并探讨了主进程如何等待子进程结束及收集子进程状态的方法。文章还涉及了子进程与父进程间的数据同步问题，并给出了可能的解决方案。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

将“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#