企画倒れコミュのen_q64sv_c

use File::Basename;
fileparse_set_fstype('MSWin32');
(undef,$path) = fileparse($ENV{'PATH_TRANSLATED'});

$target = 'data.txt';
$target = $path . $target;
open(FILE, $target) or die "$!";

while (chomp($line = <FILE>)) { #一列ずつ読み込み
@lines = split(/,/, $line); #配列[lines]に一列分のデータを格納
push(@data,@lines) #配列[data]に配列[lines]のデータを追加
}

close(FILE);

print "Content-type: text/html\n\n";

print << ".TOP";
<HTML>
<HEAD>
<TITLE>テーブル</TITLE>
</HEAD>
<BODY>
.TOP
print << ".TBL_HEAD";
<TABLE border="1">
<TR><TH>読み</TH><TH>氏名</TH><TH>点数</TH><TH>点数</TH><TH>点数</TH><TH>点数</TH><TH>点数</TH></TR>
.TBL_HEAD
for ($i = 0 ; $i <= 5; $i++) { #行を作る（6行分）
print "<TR>";
for($j = 0; $j <= 6; $j++) { #列を作る（7列分）
print "<TD>";
print $data[$j + $i*7]; #配列[data]の$j番目を出力。#i*7は二列目以降のための要素(ex.0 + 7 = 7)
print "</TD>";
}
print "</TR>\n";
}
print << ".BOTTOM";
</TABLE>
</BODY>
</HTML>
.BOTTOM