ログファイルへの書き込みがうまくいきません

質問

------------------------------------------
open(LOG,"+<$filename") || die "Error!\n";
@logs=<LOG>;
flock(LOG,2);
unshift(@logs,"$array[0],$array[1],$array[2],$array[3],$array[4]\n");
print LOG @logs;
flock(LOG,8);
close(LOG);
------------------------------------------
この$array[0]～$array[4]にはそれぞれ、「<option value="1">1</option>」の様な、プルダウンメニューの「1～10」までの数字が入っています。
この数字を$filenameへ書き込みたいのですが、中々うまくいかずに困っています。
ちなみに、一応書き込めるには書き込めるのですが、$filenameを開くと、
------------------------
1,1,1,1,1
6,4,1,9,6
1,1,1,1,1
9,1,2,4,4
1,1,1,1,1
3,0,1,9,5
1,1,1,1,1
------------------------
このような形になってしまいます。何がいけないのでしょうか？
よろしくお願いします。

回答No.1

ren10 · ベストアンサー

ファイルを読み書きモードでオープンしてますので
@logs にファイルからデータを読み込んで書き込む際に
元のファイルにあるデータの続きに新たなデータを追加書き込みしてしまってます。

@logs = <LOG>;

の後に

seek(LOG, 0, 0);

とすれば新たなデータはファイルの先頭から書き込まれるので
望み通りの結果が得られるかと思います。

また…もし @logs がこの場限りで後に参照しないのであれば、

unshift(@logs,"$array[0],$array[1],$array[2],$array[3],$array[4]\n");

となっているところを

print LOG join(",", @array[0 .. 4]) . "\n";

とすれば効率いいのかも…です。

お礼

できました！ちゃんと書き込めました！かなり悩んでいたので本当にうれしいです。
それに、効率のいいやり方まで・・・ありがとうございます。

ren10様、本当にありがとうございます。