【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト390:動画直リン 03/05/31 21:10 1EAhrEiJ http://homepage.mac.com/hitomi18/ 391:nobodyさん 03/05/31 21:44 >>389 激しくロックの方法に依ると思うんだが。 392:389 03/05/31 21:45 n0OtuFEQ 全般的にできるのはないの？ 393:nobodyさん 03/05/31 22:08 nC5SP5sD >>392 ロック中に sleep 60; 394:nobodyさん 03/05/31 23:30 弱いかな？ package FileLock; use IO::File; my $CAT= '/bin/cat'; sub open_w { my $filename= shift; mkdir($filename)unless -d $filename; my $base= sprintf("%s.%s.",time,$$); my $cnt= 0; $cnt++ while(-f "$filename/$base$cnt"); return IO::File->new("$filename/$base$cnt",'>>'); } sub open_r { my $filename= shift; return IO::File->new("|$CAT $filename/*"); } 1; 395:nobodyさん 03/06/01 04:57 Hll/ZLYf >>393 おぉ！蟻がとう。 396:nobodyさん 03/06/01 12:29 >>393 禿げ藁 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch