在Perl中,如何阻止一系列系统调用完成？

发布时间：2020-12-15 22:05:32 所属栏目：大数据来源：网络整理

导读：我正在进行一系列并行运行的系统调用： system(" sleep 5 echo step 1 done ");system(" sleep 3 echo step 2 done ");system(" sleep 7 echo step 3 done ");// block here 在所有的系统调用完成之前,我如何阻止程序流程？解决方法最简单的方法是为每个系

我正在进行一系列并行运行的系统调用：

system(" sleep 5 && echo step 1 done &");
system(" sleep 3 && echo step 2 done &");
system(" sleep 7 && echo step 3 done &");

// block here

在所有的系统调用完成之前,我如何阻止程序流程？

解决方法

最简单的方法是为每个系统调用分配一个新的子进程,然后等待它们完成.这是一个简化的例子：

my @commands = ( "sleep 5 && echo step 1 done","sleep 3 && echo step 2 done","sleep 7 && echo step 3 done" );

my @pids;
foreach my $cmd( @commands ) {
    my $pid = fork;
    if ( $pid ) {
        # parent process
        push @pids,$pid;
        next;
    }

    # now we're in the child
    system( $cmd );
    exit;            # terminate the child
}

wait for @pids;   # wait for each child to terminate

print "all done.n";

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!