#!/project/perl/perls/perl-5.20.2/bin/perl require '../wp4.pl'; $horse = $ARGV[0]; $banusi = $ARGV[1]; $reisei = $ARGV[2]; &print_header(); &get_data("1999.dat"); &get_data("2000.dat"); print "\n"; print "\n"; print "\n"; } print << "EOF";

出走レース名	競馬場	コース	天候・馬場	着順	斤量	ポイント	条件\n"; for $_ (@data) { ($rname, $grade, $loc, $sd, $distance, $weather, $cond, $desc, $jun, $kinryo, $point) = split; print "
［$grade］ $rname\n"; print "	$loc\n"; print "	$sd$distance\n"; print "	$weather・$cond\n"; print "	$jun\n"; print "	$kinryo kg\n"; print "	$point\n"; print "	$desc\n"; print "

EOF sub print_header { print << "EOF"; Content-type: text/html $horse の戦績

$horse　$reisei　$banusi氏所有

EOF } sub get_data { open(IN, $_[0]); while () { next if /\\begin/; chomp; if (/\\race/) { ($dum, $rname, $grade, $loc, $sd, $distance, $weather, $cond, $desc) = split; $desc = "-" if $desc eq ""; $loc = "-" if $loc eq ""; $weather = "-" if $weather eq ""; $cond = "-" if $cond eq ""; $sd = "-" if $sd eq ""; $distance = "-" if $distance eq ""; } else { ($jun, $hname, $hreisei, $kinryo, $hbanusi, $time, $point) = split; $point = 0 if $point eq ""; if ($hname eq $horse && $hbanusi eq $banusi) { push(@data, "$rname $grade $loc $sd $distance $weather $cond $desc $jun $kinryo $point"); } } } close(IN); }

$horse $reisei $banusi氏所有

$horse　$reisei　$banusi氏所有