【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト478:nobodyさん 03/08/27 21:08 >open(LOG, ">$logfile") or &error("Open Error : $logfile"); '>'でオープンすると? ・ファイルの中身を切り詰める。 ・書き込み専用でオープンする(ファイルが無ければ作成)。 >seek(LOG, 0, 2); この意味は？ ・フィル最後尾にファイルハンドルを移動する。 さすがに読めません。 479:nobodyさん 03/08/27 21:09 open(LOG, "+<$logfile") or &error("Open Error : $logfile"); flock(LOG, 2); my (@lines) = <LOG>; (ロックスレなので、、略) seek(LOG, 0, 0); truncate(LOG, 0); print LOG @lines; close(LOG); 上の書き方では、seekとtruncateの間で終了させられると、 ファイルの中身が失う危険性があるから、 seek(LOG, 0, 0); print LOG @lines; truncate(LOG, ftell(LOG)); close(LOG); と書くといいらしいです。(実際はどうなんでしょ？) http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#How_come_when_I_open_the_file_re http://www.kt.rim.or.jp/%7ekbk/perl5.005/perlfaq5.html#I_still_don_t_get_locking_I_jus クックブック 7.11 ttp://homepage1.nifty.com/glass/tom_neko/web/web_04.html 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch