馬名 | 齢性 | クラス | 獲得賞金 | 斤量(G2/G3/G4) | コメント |
---|---|---|---|---|---|
"; if ($out eq "外国産") { $tmp = $horse_name; $horse_name = "(外)" . $tmp; } $class{"$horse_name,$name"} = "未勝利" if $class{"$horse_name,$name"} eq ""; $cl = $class{"$horse_name,$name"}; print "$horse_name | $old$sex"; print " | $cl"; $p = int($point{"$horse_name,$name"}); print " | $p"; $kinryo = &get_kinryo($cl, $p); print " | $kinryo | @comment |