0368nobodyさん
03/06/22 07:46ID:???下記のロック、アンロックはどうでしょうか?
# lock routine
sub lock {
$retry = 5;
if (-e $lockex_file) {
$mtime = (stat($lockex_file))[9];
if ($mtime + 600 < time) {
rename($lockex_file, $lock_file) || &error("lock error");
}
}
while (1) {
last if rename($lock_file, $lockex_file);
if (--$retry < 0) {
&error("lock error");
}
}
}
# unlock routine
sub unlock {
if (-e $lockex_file) {
rename($lockex_file, $lock_file) || &error("lock error");
}
}
評価お願いします。