>>411

氏名も引けるようにしたものです。

たとえば
$name{1} は出席番号１番の人の氏名
$bmi{2} は出席番号２番の人のＢＭＩです
shusseki_log.cgi に該当ファイルを入れています。

#!C:/perl/bin/perl

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

open(IN,"shusseki_log.cgi");
while(<IN>){
my($num,$name,$b,$m,$i) = split(/,/,$_);
$bmi{$num} = qq($b,$m,$i);
$name{$num} = $name;
}
close(IN);

print "$name{2},$bmi{1}";

exit;