【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト159:nobodyさん 02/07/11 16:21 つかperlのflockてatomicじゃないだろ 160:nobodyさん 02/07/11 21:02 flock(2)使うときのflockはアトミックでしょ。 lockfでエミュレートしてるのはヤヴァイの? 161:nobodyさん 02/07/12 18:11 # 初心者スレから誘導されてきました。 # 排他処理をしたいです。 # ローカル環境(WindowsMe+Apache+Cygwin付属のPerl)では成功するのですが、 # サーバで実行するときには、必ず失敗します(エラー表示部が実行されます)。 # もし落ち度がありましたらご教授ください。以下要所の抜粋です。 sub create_lock { my ($lockfile, $retry) = @_; while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { return undef; } sleep(1); } return 1; } sub remove_lock { my ($lockfile) = @_; rmdir($lockfile); } #上記関数の利用例 my $lock_handle = &create_lock("./lockfile", 5); if (not $lock_handle) { &print_error($resource{writedatafailed}); } #ここで処理する &remove_lock($dir_lock); 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch