linux - 我如何让 Perl 等待在后台使用 system() 启动的子进程？

Question

我有一些针对多个参数执行 shell 脚本的 Perl 代码，为简化起见，我假设我的代码如下所示:

for $p (@a){
    system("/path/to/file.sh $p&");
}

之后我想再做一些事情，但我找不到等待所有子进程完成后再继续的方法。

将代码转换为使用 fork() 会很困难。有没有更简单的方法？

Answer 1

使用 fork/exec/wait 也不错:

my @a = (1, 2, 3);
for my $p (@a) {
   my $pid = fork();
   if ($pid == -1) {
       die;
   } elsif ($pid == 0) {
      exec '/bin/sleep', $p or die;
   }
}
while (wait() != -1) {}
print "Done\n";