-
$log .=qq|<tr align="left" bgcolor="#ccccee"><td style="font-size:12px" colspan="9">>> 備考: $seibetu[$SEI_V] 格言: $MES_V</td></tr>\n|;
}
}
# }else{ # ↑の2行に加えて
}elsif( 1==0 ){ # ←この2行を修正
foreach(0 .. $#tdat){
%R = '';
my @prats = split(/,/,$tdat[$_]);
foreach $prats (@prats){
|