perl：テキストファイルの最後に行を追加する。

Perl技術メモ
テキストファイルの最後にデータを追加する例。

#!c:¥perl¥bin¥perl

open(FILE,’+< test.txt’); # 読み書きモードでオープン

$dt = <FILE>; # 途中のデータを読んでも結果は同じ
$dt = <FILE>; # 途中のデータを読んでも結果は同じ

seek(FILE, 0, 2); #ファイルの最後にポインターを移動

print FILE “ADD-Data¥n”; #ファイルの最後に「ADD-Data＋改行」データが追加された。

close(FILE);