system（）でバックグラウンドで起動した子プロセスのためにPerlが待機するようにするにはどうすればよいですか？

Question

私は単純化するために、複数のパラメータのためのシェルスクリプトを実行し、いくつかのPerlコードを、持っている、私はちょうど私がこのようなコードを持っていると仮定します：

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

私は後にいくつかのより多くの事をしたいと思いますしかし、私はすべての子プロセスが完了するのを待ってから続行する方法を見つけることができません。

fork（）を使用するようにコードを変換するのは難しいでしょう。簡単な方法はありませんか？

Answer 1

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

Answer 2

fork（）に変換するのは難しいかもしれませんが、正しいツールです。 system（）はブロッキング呼び出しです。シェルを実行し、スクリプトをバックグラウンドで実行するように指示することによって、非ブロック動作を得ています。つまり、Perlは子供のPIDが何であるか分からず、あなたのスクリプトは何を待つべきかを知らないということです。

PIDをPerlスクリプトまで通信しようとすることはできますが、それはすぐに手を抜くことになります。 fork（）を使用します。

Answer 3

フォークを使用するようにコードを変更するのはおそらく簡単ですが、フォークを使用して死んだ場合は、ファイルが終了してからそれに触れるラッパーシェルスクリプトを使用できますあなたの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; 
}