EOFの書き込み Perl

質問

CGI初心者です。質問させてもらいます。
テキストファイルを読み書きモードでオープンします。
open(FILE, "+<test.txt");
読み込みや書き込み作業をした後、
現在のファイルポインタの位置や、
seek FILE, 0, 0; などファイルの先頭で、
EOFを書き込めないのでしょうか？
例）print FILE 'EOFの文字';
Ｃでは出来たような気がしましたが・・
ファイルポインタの位置でファイルを終わらせる
簡単な方法ありましたら、お教え願います。m(__)m

回答No.1

hrm_mmm · ベストアンサー

tell で現在位置を調べて、truncateでファイルサイズカット。

参考URL：

http://www.presso.jp/text/perl/file.html

お礼

ファイルサイズカット何とかできました。
かなりの勉強不足でした。
ありがとうございました。m(__)m