>>483
だめ。

> }
> #test.datを開けた場合は以下の処理
> @lines = <IN>;
> push(@lines,"新しい行\n");
>
> open(OUT,">test.dat"); 　　　　　　　　← ここでopenできなかった場合の処理が抜けている。
> foreach(@lines){