たつをの ChangeLog : 2002-06-20

ロック。排他処理。

#!/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() を使う。

T まの氏の日記によれば、CASIO KP-C10 スマートエッグ[2002-03-01-5]が FreeBSD で使えるらしい。いいなあ。Linux でも行けそう。だれかやらんかな。

会社が早く終わったので、家族で中華街へ行った。

創立記念日なので、14 時におしまい。毎年お弁当が支給される。
毎年恒例のスポーツ大会は腰痛なのでもちろん不参加。
(ref. [2001-06-20-3], [2000-06-20-3])


約束を守ることが大事との社長の言葉に「お前が守れ」とつっこみ多数