Perl 的 `system` 怎么能不等待完成而继续。

Posted 2023-02-16

【中文标题】Perl 的 `system` 怎么能不等待完成而继续。

【英文标题】：How can Perl's `system` proceed without wait for the completion.

【发布时间】：2014-05-25 05:20:17

【问题描述】：

在 Perl 中，command 将等待“命令”完成。有没有办法让command 只等待 20 秒？一种情况如下：

command 是一个无限循环，不会结束。 command 将冻结，程序无法继续。我想让程序不被command阻止。

我知道 Ruby 有办法做到这一点。 Perl 有解决方案吗？

谢谢，

=是的

【参考方案1】：

使用alarm:

eval 
    local $SIGALRM = sub  die "alarm\n" ; # NB: \n required
    alarm 20;
    system("<Your command>")
    alarm 0;
;
if ($@) 
    die unless $@ eq "alarm\n";   # propagate unexpected errors
    # timed out

else 
    # didn't

【参考方案2】：

#!/usr/bin/perl -w
use strict;
use 5.010;

my $foo = 123;
my $pidChild = fork(); # All objects before this fork statement will be copied.
given ($pidChild)

    when (!defined($_)) 
        die "Cannot fork: $!";
    
    when ($_ == 0) 
        # The child process goes here.
        $foo = 456; # This is a duplicate.
        system 'subprocess options'; # Or: exec 'suprocess options';
    
    default 
        # The original process goes here.
        waitpid($_, 0); # Whether to wait or not is up to you.
        say $foo; # Output: 123
    

如果需要进程间通信 (IPC)，在调用 fork 之前，可以使用内置函数 pipe 创建 2 个处理程序，一个用于输入，另一个用于输出，它们将是由原进程和子进程共享。

进行 IPC 的方法肯定不止一种。内置函数open、模块IPC::Open2提供的子程序open2和IPC::Open3提供的open3都可以异步运行子进程。