En Perl, ¿cómo puedo bloquear para que finalicen un montón de llamadas al sistema?

Question

que estoy haciendo un montón de llamadas al sistema que quiero correr en paralelo:

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

// block here 

¿Cómo puedo bloquear el flujo del programa hasta que se hayan terminado todas las llamadas al sistema?

Answer 1

la forma más sencilla de hacerlo es, probablemente, a fork un nuevo proceso hijo para cada llamada al sistema, y ​​luego esperar a que ellos para terminar. Aquí hay un ejemplo simplificado:

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

Teclee un proceso secundario para realizar cada trabajo, y en el elemento primario, espere a que esos procesos finalicen antes de salir.

Ver perldoc perlfork, perldoc -f fork y perldoc -f waitpid.

(El código exacto para esto se deja como un ejercicio para el lector; todos deberían tener que escribir esto desde cero al menos una vez, para comprender los detalles involucrados. También hay muchos ejemplos en este sitio).

Answer 3

lo que acerca de la ejecución de cada una de la llamada al sistema de un hilo diferente y unirse en las roscas