Perlのforkについて

質問

PerlでDBに格納するプログラムを作成しています。
パラレルで行ないたいためにforkを使っているのですが、
いまいちわかっていないのでご教授ください。

やりたいことはパラレルでのDB格納です。
親、子両方のプロセスが完了したら後続処理を行い、
０を戻したいのですが、下記の方法ですと、
子が終了したらprintしてからreturnしているようです。

このように、親子の処理が完了したら後続処理に移るようにするためには
どうしたらよいのでしょうか？

if ($pid = fork()) {
#親プロセス
insertDB();
wait;
return 0;
} else {
insertDB();
}
print"ここは最後に通したい"\n;

回答No.1

shiren2 · ベストアンサー

子プロセスはexitしてしまって構いません。
別プロセスなので、親には影響しません。

＞パラレルでのDB格納です。
蛇足ですが、DB格納はデータベースハンドルをコピーすると異常事態にならないとも限らないので、個別に取得した方がいいですよ。

以下サンプルです。
インデントは全角スペースになっています。

-------------------------------------------------------
#!/usr/bin/perl
use strict;

if(fork){
　print("parent hello\n");
　wait;
}else{
　print("child hello\n");
　sleep 3;
　print("child exit\n");
　exit;
}

print("parent finish\n");

-------------------------------------------------------
モジュールを使うと楽です。

#!/usr/bin/perl
use strict;
use Parallel::ForkManager;

# 並行処理は四つ
my $pm = Parallel::ForkManager->new(4);
my @id = (1 .. 10);

for(@id){
　# 子の処理
　$pm->start and next;
　print("this is $_\n");
　sleep 2;
　$pm->finish;
}

# 親はただ待つ
$pm->wait_all_children;
print("parent finish\n");

お礼

おかげ様で解決いたしました。
ありがとうございました。