【Perl】ファイルロック(排他処理)について語ろうat PHP【Perl】ファイルロック(排他処理)について語ろう - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト473:472 03/08/24 11:25 xfHM1yWk あ、よく考えたら、既存の行をいちいち@valuesにする必要はないんだ・・・ 訂正。 ↓これでどうでしょか？ use Fcntl qw(:flock); #万が一リネーム失敗したときのために、ユニークなファイル名にしておく $tmpfile = "$datafile".".$$.". time() .".csv"; #ロックファイルを作成する（★注：ロックファイルは、各CSVごとにユニークに） open (LOCKF, ">$datafile"."_lockf") or die("cannot open:$!"); flock (LOCKF, LOCK_EX); #ロックファイルをflockする open(IN, "< $datafile") or die("cannot open:$!"); # 読みのみモードで開く open(TMP,"> $tmpfile"); #テンポラリファイルを作成 while ($line = <IN>){ print TMP $line ; } print TMP "新しい行" . "\n"; close TMP; close IN; unlink $datafile; rename ($tmpfile, $datafile) or die ("cannot rename : $!"); close LOCKF; 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch