7.17 一時ファイルを使用しないでファイルをその場で修正する
ファイルを更新モード("+<")でオープンし、ファイル内の全ての行を配列に読み込み、その配列を修正する。修正した各行をサイドファイルに書き込み、現在のシークポインタの位置で切り取る。
open(FH, "+<", $FILE) @array = <FH>; # change ARRAY here seek(FH, 0, 0); print FH @array; truncate(FH, tell(FH)); close(FH);