Jak sprawić, by Perl czekał, aż procesy potomne rozpoczną się w tle z systemem()?

Question

mam jakiś kod Perl, który wykonuje skrypt do wielu parametrów, w celu uproszczenia, będę po prostu założyć, że mam kodu, który wygląda tak:

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

Chciałbym zrobić kilka innych rzeczy po to, ale nie mogę znaleźć sposobu na poczekanie na zakończenie wszystkich procesów potomnych.

Konwersja kodu na fork() byłaby trudna. Czy nie ma łatwiejszego sposobu?

Answer 1

Korzystanie widelec/exec/wait nie jest takie złe:

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"; 

Answer 2

Konwersja do trybu fork() może być trudna, ale jest poprawnym narzędziem. system() jest wywołaniem blokującym; otrzymujesz zachowanie nieblokujące, wykonując powłokę i nakazując jej uruchomienie skryptów w tle. Oznacza to, że Perl nie ma pojęcia, jakie mogą być PIDy dzieci, co oznacza, że ​​twój skrypt nie wie, na co czekać.

Możesz spróbować przekazać PID do skryptu Perla, ale to szybko wymyka się spod kontroli. Użyj fork().

Answer 3

Będziesz musiał coś zmienić, zmiana kodu na używanie widelca jest prawdopodobnie prostsza, ale jeśli jesteś martwy nastawiony na używanie widelca, możesz użyć skryptu powłoki opakowania, który dotknie plik, gdy zostanie zrobiony, a następnie poproś swój kod Perla o potwierdzenie istnienia plików.

Oto wrapper:

#!/bin/bash 

$* 

touch /tmp/$2.$PPID 

Kod Perl wyglądałby następująco:

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

Ale myślę, że kod rozwidlania jest bezpieczniejsze i bardziej przejrzyste:

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; 
}