Как я могу заставить Perl ждать дочерних процессов, запущенных в фоновом режиме с помощью system ()? - PullRequest
Новая
       9

Как я могу заставить Perl ждать дочерних процессов, запущенных в фоновом режиме с помощью system ()?

10 голосов
/ 26 мая 2009

У меня есть некоторый код на Perl, который выполняет сценарий оболочки для нескольких параметров, чтобы упростить, я просто предположу, что у меня есть код, который выглядит так: 

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

Я бы хотел сделать еще кое-что после этого, но я не могу найти способ дождаться завершения всех дочерних процессов, прежде чем продолжить.

Преобразование кода для использования fork () будет затруднено. Есть ли более простой способ?

Ответы [ 3 ]

16 голосов
/ 26 мая 2009

Использование 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";
13 голосов
/ 26 мая 2009

Вам придется что-то изменить, изменить код для использования fork, возможно, проще, но если вы абсолютно не настроены против использования fork, вы можете использовать сценарий оболочки-оболочки, который касается файла, когда это будет сделано, и затем иметь ваш Perl-код проверяет наличие файлов.

Вот обертка: 

#!/bin/bash

$*

touch /tmp/$2.$PPID

Ваш Perl-код будет выглядеть так: 

for my $p (@a){
    system("/path/to/wrapper.sh /path/to/file.sh $p &");
}
while (@a) {
    delete $a[0] if -f "/tmp/$a[0].$$";
}

Но я думаю, что код разветвления безопаснее и яснее: 

my @pids;
for my $p (@a) {
    die "could not fork" unless defined(my $pid = fork);\
    unless ($pid) { #child execs
        exec "/path/to/file.sh", $p;
        die "exec of file.sh failed";
    }
    push @pids, $pid; #parent stores children's pids
}

#wait for all children to finish
for my $pid (@pids) {
    waitpid $pid, 0;
}
9 голосов
/ 26 мая 2009

Преобразование в fork () может быть трудным, но это правильный инструмент. system () - блокирующий вызов; вы получаете неблокирующее поведение, выполняя оболочку и приказывая ей запускать сценарии в фоновом режиме. Это означает, что Perl не знает, какими могут быть PID дочерних элементов, а это означает, что ваш скрипт не знает, чего ждать.

Вы можете попытаться передать PID до сценария Perl, но это быстро выходит из-под контроля. Используйте fork ().

...