7.17 一時ファイルを使用しないでファイルをその場で修正する

ファイルを更新モード("+<")でオープンし、ファイル内の全ての行を配列に読み込み、その配列を修正する。修正した各行をサイドファイルに書き込み、現在のシークポインタの位置で切り取る。

open(FH, "+<", $FILE) 
@array = <FH>;
# change ARRAY here
seek(FH, 0, 0);
print FH @array;
truncate(FH, tell(FH));
close(FH);