如何异步运行 Perl 中的系统命令？

Question

我目前有一个 Perl 脚本，它在系统上运行外部命令，收集 output，并根据返回的内容执行一些操作。 现在，这是我运行它的方式（其中 $cmd 是带有命令设置的字符串）：

@output = `$cmd`;

我想更改此设置，以便如果命令挂起并且在很长时间后没有返回值，那么我将终止该命令。 我 go 如何异步运行这个？

Answer 1

有很多方法可以做到这一点：

• 你可以用fork（perldoc -f fork）来做到这一点
• 或使用线程（perldoc线程）。 这两个都使返回的信息难以传递回主程序。
• 在支持它的系统上，您可以设置警报（perldoc -f警报），然后在信号处理程序中清理。
• 您可以使用POE或Coro之类的事件循环。
• 您可以使用open（）或open2或open3（参见IPC :: Open2，IPC :: Open3）来启动程序，同时通过文件句柄获取STDOUT / STDERR，而不是反引号。 对其运行非阻塞读取操作。 （perldoc -f select和google“perl nonblocking read”）
• 作为openX（）的更强大的变体，请查看IPC :: Run / IPC :: Cmd。
• 可能是半夜我想​​不到的。

Answer 2

如果你真的只需要在给定的系统调用上设置超时，这比异步编程要简单得多。

你需要的只是eval（）块内的alarm（）。

下面是一个示例代码块，它将这些代码块放入一个可以放入代码中的子例程中。 该示例调用sleep，因此输出并不令人兴奋，但确实显示了您感兴趣的超时功能。运行它的输出是：

/ bin / sleep 2 failure：在./time-out第15行超时。

$ cat time-out
#!/usr/bin/perl

use warnings;
use strict;
my $timeout = 1;
my @cmd = qw(/bin/sleep 2);
my $response = timeout_command($timeout, @cmd);
print "$response\n" if (defined $response);

sub timeout_command {
        my $timeout = (shift);
        my @command = @_;
        undef $@;
        my $return  = eval {
                local($SIG{ALRM}) = sub {die "timeout";};
                alarm($timeout);
                my $response;
                open(CMD, '-|', @command) || die "couldn't run @command: $!\n";
                while(<CMD>) {
                        $response .= $_;
                }
                close(CMD) || die "Couldn't close execution of @command: $!\n";
                $response;
        };
        alarm(0);
        if ($@) {
                warn "@cmd failure: $@\n";
        }
        return $return;
}

Answer 3

如果您的外部程序没有输入任何内容，请在perlipc联机帮助页中查找以下单词：

这是一个安全的反推或管道打开阅读：

使用示例代码并使用警报保护它（ perlipc也对此进行了解释）。

Answer 4

我在下面编写代码以同时在 20 个目录上运行rsync （并行而不是依次要求我等待数小时才能完成）：

use threads;

for my $user ( keys %users ) {
  my $host = $users{$user};
  async {
    system <<~ "SHELL";
      ssh $host \\
        rsync_user $user
    SHELL
  }
}

$ pgrep -lf rsync | wc -l
      20

不确定它是否是最好的或什至是一个好的解决方案，但我很高兴它适用于我的用例。

有了这个，你会在屏幕上得到一个混合的 output（无论如何我都忽略了），但它成功地完成了它的工作。

---

threads pragma 默认导出（非常有用的） async function。

rsync_user是我的 Perl 脚本，它用选项、源目录和目标目录集包装了rsync命令。

使用 Perl 5.32.1 在 FreeBSD 13.1 上运行