ロック。排他処理。

#!/usr/bin/env perl
use strict;
my $lock_file = "a.lock";
# (1) lock の確認
die "locked: $lock_file\n" if (-l $lock_file);
# (2) lock する (シンボリックリンク)
symlink "dummy", $lock_file;
# (3) 処理する
for (my $i = 1; $i <= 10; $i++) { print "$i\n"; sleep 1; }
# (4) lock の削除
unlink $lock_file;

- 普通のファイルロックは、 flock() を使う。