В Perl, как я могу заблокировать несколько системных вызовов для завершения?

Question

Я делаю несколько системных вызовов, которые я хочу выполнять параллельно:

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

// block here

Как заблокировать выполнение программы, пока все системные вызовы не будут завершены?

Answer 1

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

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

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

См. perldoc-perlfork , perldoc -f fork и perldoc -f waitpid .

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

Answer 3

как насчет запуска каждого системного вызова из другого потока и присоединения к потокам