結果！ - 辺境の予想ページ

#!/project/perl/perls/perl-5.20.2/bin/perl use CGI; @bai = ("", 300, 200, 100); my $cgi = CGI->new; &print_header(); $id = $cgi->param('id'); $grade = $cgi->param('g'); $race = $cgi->param('race'); print "$race (G$grade)

\n"; open(IN, "OZZU/$id"); $_ = ; chomp; ($w1, $w2, $w3) = split; @w3 = split(',', $w3) if ($w3 =~ /,/); chomp($tan = ); $_=; chomp; ($f1, $f2, $f3, $f4) = split; chomp($umaren = ); $_=; chomp; ($wide1, $wide2, $wide3, $wide4, $wide5) = split; close(IN); $umatan = $umaren * $tan; if ($f3) { if ($f4) { $sanrentan2 = $umaren * $tan * $f4; } $sanrentan = $umaren * $tan * $f3; } else { $sanrentan = $umaren * $tan * $tan; } if ($f3) { if ($f4) { $sanrenfuku2 = $umaren * $f4; } $sanrenfuku = $umaren * $f3; } else { $sanrenfuku = $umaren * $tan; } my $rowstr = ''; if ($#w3 == 1) { $f3str = "$f3倍, $f4倍"; $sanrentanstr = "$sanrentan倍, $sanrentan2倍"; $sanrenfukustr = "$sanrenfuku倍, $sanrenfuku2倍"; $rownum = 5; $rowstr = "$wide4倍\n$wide5倍\n" } else { $f3str = "$f3倍"; $sanrentanstr = "$sanrentan倍"; $sanrenfukustr = "$sanrenfuku倍"; $rownum = 3; } print << "EOF";

１着	$w1
２着	$w2
３着	$w3

$rowstr

単勝	$tan倍
複勝	$f1倍
	$f2倍
	$f3str
連単	$umatan倍
連複	$umaren倍
３連単	$sanrentanstr
３連複	$sanrenfukustr
ワイド	$wide1倍
$wide2倍
$wide3倍

EOF print "\n"; } close(IN); print "

予想者名	◎	○	▲	単勝	複勝	連単	連複	３連単	３連複	ワイド	合計\n"; open(IN, "yosou/$id"); while () { chomp; ($name, $y1, $y2, $y3) = split; for $i (0..5) { $get[$i] = 0; } $get[0] = $tan * $bai[$grade] if $w1 eq $y1; $get[1] = $f1 * $bai[$grade] if $w1 eq $y1; $get[1] = $f2 * $bai[$grade] if $w2 eq $y1; $get[1] = $f3 * $bai[$grade] if $w3 eq $y1; if ($#w3 == 1) { $get[1] = $f3 * $bai[$grade] if $w3[0] eq $y1; $get[1] = $f4 * $bai[$grade] if $w3[1] eq $y1; } $get[2] = $umatan * $bai[$grade] if ($w1 eq $y1 && ($w2 eq $y2 \|\| $w2 eq $y3)); $get[3] = $umaren * $bai[$grade] if ($get[2] \|\| ($w1 eq $y2 && $w2 eq $y1) \|\| ($w1 eq $y2 && $w2 eq $y3) \|\| ($w1 eq $y3 && $w2 eq $y1) \|\| ($w1 eq $y3 && $w2 eq $y2)); if ($#w3 == 1) { print_doutyaku(); } else { print_normal(); } print "	$total

\n"; print << "EOF"; EOF sub print_header { print << "EOF"; Content-type: text/html 結果！ - 辺境の予想ページ EOF } sub print_normal { $get[4] = int($sanrentan * $bai[$grade]) if ($w1 eq $y1 && $w2 eq $y2 && $w3 eq $y3); $get[5] = $sanrenfuku * $bai[$grade] if (($w1 eq $y1 || $w1 eq $y2 || $w1 eq $y3) && ($w2 eq $y1 || $w2 eq $y2 || $w2 eq $y3) && ($w3 eq $y1 || $w3 eq $y2 || $w3 eq $y3)); print "$name$y1$y2$y3\n"; $total = 0; for $i (0..5) { $total += $get[$i]; print "$get[$i]\n"; } if ($wide1 eq "-") { print "-\n"; } else { $get_wide = 0; $get_wide = $wide1 * $bai[$grade] if ($w1 eq $y1 && $w2 eq $y2) || ($w1 eq $y2 && $w2 eq $y1); $get_wide = $wide2 * $bai[$grade] if ($w1 eq $y1 && $w3 eq $y2) || ($w1 eq $y2 && $w3 eq $y1); $get_wide = $wide3 * $bai[$grade] if ($w2 eq $y1 && $w3 eq $y2) || ($w2 eq $y2 && $w3 eq $y1); print "$get_wide\n"; $total += $get_wide; } } sub print_doutyaku { $get[4] = $sanrentan * $bai[$grade] if ($w1 eq $y1 && $w2 eq $y2 && $w3[0] eq $y3); $get[4] = $sanrentan2 * $bai[$grade] if ($w1 eq $y1 && $w2 eq $y2 && $w3[1] eq $y3); $get[5] = $sanrenfuku * $bai[$grade] if (($w1 eq $y1 || $w1 eq $y2 || $w1 eq $y3) && ($w2 eq $y1 || $w2 eq $y2 || $w2 eq $y3) && ($w3[0] eq $y1 || $w3[0] eq $y2 || $w3[0] eq $y3)); $get[5] = $sanrenfuku2 * $bai[$grade] if (($w1 eq $y1 || $w1 eq $y2 || $w1 eq $y3) && ($w2 eq $y1 || $w2 eq $y2 || $w2 eq $y3) && ($w3[1] eq $y1 || $w3[1] eq $y2 || $w3[1] eq $y3)); print "$name$y1$y2$y3\n"; $total = 0; for $i (0..5) { $total += $get[$i]; print "$get[$i]\n"; } if ($wide1 eq "-") { print "-\n"; } else { $get_wide = 0; $get_wide = $wide1 * $bai[$grade] if ($w1 eq $y1 && $w2 eq $y2) || ($w1 eq $y2 && $w2 eq $y1); $get_wide = $wide2 * $bai[$grade] if ($w1 eq $y1 && $w3[0] eq $y2) || ($w1 eq $y2 && $w3[1] eq $y1); $get_wide = $wide3 * $bai[$grade] if ($w1 eq $y1 && $w3[1] eq $y2) || ($w1 eq $y2 && $w3[1] eq $y1); $get_wide = $wide4 * $bai[$grade] if ($w2 eq $y1 && $w3[0] eq $y2) || ($w2 eq $y2 && $w3[0] eq $y1); $get_wide = $wide5 * $bai[$grade] if ($w2 eq $y1 && $w3[1] eq $y2) || ($w2 eq $y2 && $w3[1] eq $y1); print "$get_wide\n"; $total += $get_wide; } }