子プロセスを作成 fork 【perl】

fork すごい！
時間がかかるプログラムを同時に動かしたいときに便利！
10コぐらいプロセス作っちゃえばかなり時間短縮できるヽ(ﾟ∀ﾟ)ﾒ(ﾟ∀ﾟ)ﾒ(ﾟ∀ﾟ)ﾉ
今までずっと敬遠してたけど勿体無いことしてた。ことに気づいた卒業間際ｗｗ

*******************

$pid = fork;
で子プロセスを作成。

$pid には以下が代入。
親プロセス：子プロセスのID
子プロセス：0

ちなみに親と子のプロセスでは変数の共有はしない。
変数はそれぞれのプロセス内で変わってく。

子プロセスを作成した後、それぞれのプロセスで動作を変えるときは
if($pid){
# 親プロセス
}else{
# 子プロセス
exit;
}

もしくは

if($pid == 0){
# 子プロセス
exit;
}else{
# 親プロセス
}

子プロセスが終わるまで親プロセスを待たせるには
waitpid(子プロセスID,0);