7.18 ファイルをロックする

多くのプロセスが同じファイルを同時に更新できるようにしたい。

• flockを使用して、全てのプロセスにロックを遵守させる。

use Fcntl qw(:flock);      # LOCK_*定数を使用するため
open(FH, "+<", $path) or die;
flock(FH, LOCK_EX) or die;
# ここでファイルを更新して。。。
close(FH) or die;