ログファイルへの書き込みがうまくいきません
------------------------------------------
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
------------------------
このような形になってしまいます。何がいけないのでしょうか？
よろしくお願いします。
お礼
回答ありがとうございます。 無事できました。 本当になんでなんでしょう（笑）。 ずっと悩んでましたがすっきりしました。 ありがとうございました。