Perlコーディング初心者質問スレ Part 43
レス数が950を超えています。1000を超えると書き込みができなくなります。
0950nobodyさん
2005/10/14(金) 01:39:33ID:???入れる場所そこじゃなーいorz
配列の初期データはテストデータだろうから置いておくとしても…
foreach (@question) {
...
foreach (@column) {
next if(!$_);
$anum++;
$answer[$anum] = $_;
} # このforeachの中じゃない
push (@vals, $val);
push (@avals, $aval);
} # pushしたらforeach (@question)のブロックは終わり
# csvへ書き込み
...
だ。も一つ問題点。ログ出力するとき改行忘れてた。スマソ
print WRITE_BBSDAT join(',', $in{name}, @vals), "\n";
print WRITE_BBSDAT join(',', '', @avals), "\n";
> $in{name} ←これはくり返さない。1回だけ表示(下のセルへ)
> $val ←これはその問題数分だけ横にくり返し。excelの横セルはひとつずつ違うセルに。(下のセルへ)
> $aval ←同様。(下のセルへ)
>>922といってることが違う気がするのだが。
名前を別の行にしたいなら、そこだけ出せばよろし
>>931が指摘してる点の修正もお忘れなく
> とりあえず入力されたデータに改行が入ってるままファイルに書き出したらアホなことになるから、
レス数が950を超えています。1000を超えると書き込みができなくなります。