【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト208:nobodyさん 02/07/29 15:15 homepage1.nifty.com/glass/tom_neko/web/web_04.html のページでロックの仕方が紹介されていたので使わせてもらおうと思いました。 で、「古いロックファイル（ディレクトリ）の削除」の項目にある、 $retry = 5; # リトライ回数セット while (!mkdir($lockdir, 0755)) { # 作成。出来なければ待つ if (--$retry <= 0) { # 5回ダメなら if (mkdir($lockdir2, 0755)) { # ロックを消すための排他 if ((-M $lockdir) * 86400 > 600) { # 作成時間が10分以上前なら # ロック入れ替え rename($lockdir2, $lockdir) or &error("LOCK ERROR"); last; # 一連の処理へ }else{ rmdir($lockdir2); } # 部分ロック削除 } &error("BUSY"); # あきらめる } sleep(1); # 1秒待つ } 一連の処理 rmdir($lockdir); # 削除 とりあえず、これ使っておけば大丈夫なんでしょうか。 ２ちゃんねるみたいな同時アクセスが凄い場所でない限り。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch