【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト474:472 03/08/24 11:57 xfHM1yWk あるいはもう１つの選択枝。 単純に、 use Fcntl qw(:flock); open(OUT, "+< $datafile"); flock (LOCKF, LOCK_EX); truncate(OUT, 0); # ファイルサイズを0バイトにする seek(OUT, 0, 0); # ファイルポインタを先頭にセット print OUT "新しい行" . "\n";; # 書き込む close(OUT); # closeすれば自動でロック解除 ・・・・どっちがいいのでしょうか・・・？ 475:nobodyさん 03/08/24 12:53 >>474 追記なら use Fcntl qw(:flock); open(OUT, ">>$datafile"); flock (OUT, LOCK_EX); seek(OUT, 0, 2); # ファイルポインタを最後尾にセット（念のため） print OUT "新しい行" . "\n";; # 書き込む close(OUT); # closeすれば自動でロック解除 -- # 私はこんな感じ(Win不可) use FileHnadle; my $fh = new FileHandle($datafile, O_WRONLY|O_CREAT|O_APPEND|O_EXLOCK) or die; print $fh '新しい行', "\n"; close($fh); IO::Fileでもいいんだけど、趣味でFileHandle使ってます。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch