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

前端之家收集整理的这篇文章主要介绍了在Perl中,如何阻止一系列系统调用完成?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在进行一系列并行运行的系统调用
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";
原文链接:https://www.f2er.com/Perl/171378.html

猜你在找的Perl相关文章