Perlコーディング初心者質問スレ Part 55

**nobodyさん** · 2007/07/28(土) 21:06:05

数字が書かれているファイルを開いて、その数字をインクリメントして上書きしたいと思います。

open FH, "count.txt";
$count = <FH>;
close FH;

open FH, "+>$ct";
print FH ++$count;
close FH;

こんな感じなのですが、2回openせずにできますか？