複数のCSVファイルを１つの表にして出したい
あるCSVファイルを、Perl＋HTMLで、プラウザに「表」で表示させるようにしました。
しかし、追加で複数のCSVファイルを読み込ませて、同じ表に入れることができません。（今ある表のなかの、$r1,2,3と番号が存在してる以外の空欄になっている表に入れたいのです）
どのようにすればいいのか、どなたかお教え下さい!＞＜
ちなみに、今作ってあるものはこんなかんじです。
動作確認済み。
#!/usr/local/bin/perl
#-----------------------------------
$file = "a.20090504.csv";
#-----------------------------------
print "Content-type: text/html\n\n";
print "<html>\n";
print "<body>\n";
print "<br><br>\n";
print "<center>\n";
print "<table border=1 >\n";
$days = $file;
$days =~ s/a.//g;
$days =~ s/.csv//g;
open(IN,"$file");
@kasou = <IN>;
close(IN);
foreach $line (@kasou){
($r1, $r2, $r3, $r4, $r5, $r6, $r7) = split (/,/, $line);
print "<tr>\n";
print "<td>$days</td>\n";
print "<td>$r1</td>\n";
print "<td></td>\n";
print "<td>$r2</td>\n";
print "<td></td>\n";
print "<td></td>\n";
print "<td>$r3</td>\n";
print "<td></td>\n";
print "<td></td>\n";
print "<td>$r4</td>\n";
print "<td>$r5</td>\n";
print "<td>$r6</td>\n";
print "<td>$r7</td>\n";
print "</tr>\n";
}
print "</table>\n";
print "</body>\n";
print "</html>\n";
※ちなみに、これですとCSVファイル名の20050504だけがtrに入るようになっています。これは、こうしたいのでこうしているのですが、繰り返しtrに投入されるようになっているのも気になります。
どうしたら直るでしょうか。
お礼
Solalisで動きました。 ありがとうございます！大変助かりました(^^)