In Perl, come posso bloccare il completamento di un gruppo di chiamate di sistema?

Question

sto facendo un sacco di chiamate di sistema che voglio correre in parallelo:

system(" sleep 5 && echo step 1 done &"); 
system(" sleep 3 && echo step 2 done &"); 
system(" sleep 7 && echo step 3 done &"); 

// block here 

Come posso bloccare il flusso del programma fino a quando tutte le chiamate di sistema sono finiti?

Answer 1

il modo più semplice per farlo è probabilmente quello di fork un nuovo processo figlio per ogni chiamata di sistema, e quindi attendere per loro finire. Ecco un esempio semplificato:

my @commands = ("sleep 5 && echo step 1 done", 
       "sleep 3 && echo step 2 done", 
       "sleep 7 && echo step 3 done"); 

my @pids; 
foreach my $cmd(@commands) { 
    my $pid = fork; 
    if ($pid) { 
     # parent process 
     push @pids, $pid; 
     next; 
    } 

    # now we're in the child 
    system($cmd); 
    exit;   # terminate the child 
} 

wait for @pids; # wait for each child to terminate 

print "all done.\n"; 

Answer 2

Forcella di un processo figlio per eseguire ogni processo e nel genitore, attendere il termine di tali processi prima di uscire.

Vedere perldoc perlfork, perldoc -f fork e perldoc -f waitpid.

(Il codice esatto per questo è lasciato come esercizio per il lettore - tutti dovrebbero scrivere questo da zero almeno una volta, per capire i dettagli coinvolti. Ci sono molti esempi anche in questo sito.)

Answer 3

quello di rimanere a corto ognuno di chiamata di sistema da un thread diverso e di unirsi a filetti