#!/project/perl/perls/perl-5.20.2/bin/perl $kaisai_name = $ARGV[0]; $file = $ARGV[1]; &print_header(); print "\n"; open(IN, $file); while () { next if !/\\begin/; chomp; @tmp = split; if ($tmp[1] eq $kaisai_name) { while () { chomp; @tmp = split; if (/\\begin/) { last; } elsif (/\\race/) { $tmp[8] = "条件なし" if $tmp[8] eq ""; print "\n"; print "\n"; print "
$tmp[2]\n"; print "$tmp[1]\n"; print "$tmp[4]$tmp[5]　$tmp[3]　$tmp[6]　$tmp[7]
$tmp[8]\n"; } else { print "
$tmp[0]\n"; print "$tmp[1]\n"; print "$tmp[2]\n"; print "$tmp[3]\n"; print "$tmp[4]\n"; print "$tmp[5]\n"; print "$tmp[6]\n"; print "
\n"; } } last; } } print "
\n"; sub print_header { print << "EOF"; Content-type: text/html $kaisai_name の結果

$kaisai_name の結果

EOF }