自作CGIを評価するスレ (672ﾚｽ)
上下前次1-新

---

368(6): 03/06/22 07:46 ID:??? AAS
スレの趣向とは少し外れるんですが、
下記のロック、アンロックはどうでしょうか？

# 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");
　}
}

評価お願いします。

---

上下前次1-新書関写板覧索設栞歴

---

あと 304 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.729s*