Perl Tips - ロック、排他処理
2002-06-20-1
ロック。排他処理。
#!/usr/bin/env perl- 普通のファイルロックは、 flock() を使う。
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;
この記事に言及しているこのブログ内の記事