※ ChatGPTを利用し、要約された質問です（原文：perlのwhile loop内のforkについて）
perlのwhile loop内のforkについて
このQ&Aのポイント
perlのfork機能を使いたい者ですが、その挙動について質問しています。
質問内容を具体的にするため、以下に簡単なコードを書いておきます。
なぜ、「parent finish」が４回も出てくるのかということです。
perlのwhile loop内のforkについて
perlのfork機能を使いたい者ですが、その挙動について質問しています。
ここ数日fork機能について勉強しましたが、
その挙動がどうでしても理解できないので、質問をさせていただいています。
質問内容を具体的にするため、以下に簡単なコードを書いておきます。
#!/usr/bin/perl
use strict;
my $i=0;
while ($i<3)
{
if(fork())
{
print("parent hello -> $i\n");
last;
}
else
{
print("child hello -> $i\n");
sleep 3;
print("child exit -> $i\n");
$i++;
}
}
print("parent finish\n");
このコードをlinux上で起動させますと、下記の結果が得られました。
parent hello -> 0
parent finish
child hello -> 0
child exit -> 0
parent hello -> 1
parent finish
child hello -> 1
child exit -> 1
parent hello -> 2
parent finish
child hello -> 2
child exit -> 2
parent finish
ここから質問です。
上記の結果の中で自分が理解できないのは、
なぜ、「parent finish」が４回も出てくるのかということです。
自分の理解している部分では、「parent finish」はwhile loopの外にあるので、
「parent finish」をプリントするには、一度while loopを出る必要があると思います。
しかし、それが２、３回と続いてプリントされていることがなぜなのか理解できません。
理想としては、
parent hello -> 0
child hello -> 0
child exit -> 0
parent hello -> 1
child hello -> 1
child exit -> 1
parent hello -> 2
child hello -> 2
child exit -> 2
parent finish
という具合に、「parent finish」を一回だけ表示させたいのですが、それは可能でしょうか？
ご教授をお願いします。よろしくお願いします。
お礼
ありがとうございます。 確かにプロセスIDを表示するとわかりやすかったです。 理解した部分では、 fork -> プロセスが２つ作成される（ここでは、24503と24504）。 そのうちの一つ(24503)は、if statement内にある”parent(24503) hello -> 0”を経て、 lastがあるため、 while loopから抜け出て、最後の”parent(24503) finish”(ここでは、24503プロセスが終了している)がプリントされる。 先に作成された別のプロセス(24504)は、elseに入り、プリントを経て、$iをインクリメントして、while loopのチェックを受け、次につながる。 このため、複数回"parent($$) finish\n"がプリントされていたのですね。 勉強にもなりましたし、大変スッキリしました。 ありがとうございました。