#!/project/perl/perls/perl-5.20.2/bin/perl use CGI; @wakucol = ("", "white", "black", "red", "blue", "yellow", "green", "orange", "pink"); @wakufont = ("", "black", "white", "white", "white", "black", "white", "black", "black"); my $cgi = CGI->new; &print_header(); $id = $cgi->param('id'); open(IN, "data/$id"); $_ = ; my ($race, $month, $day, $hour) = split; print "
$race\n"; $i = 0; while () { chomp; ($wnum[$i], $unum[$i], $maru[$i], $horse[$i], $sex[$i], $old[$i], $weait[$i], $jokey[$i], $traner[$i]) = split; $i ++; } close(IN); print "\n"; print "\n"; for (reverse(@wnum)) { print "\n"; } print "\n"; print "\n"; for (reverse(@unum)) { print "\n"; } print "\n"; print "\n"; for (reverse(@maru)) { print "\n"; } print "\n"; print "\n"; for (reverse(@horse)) { $i = $_; $i =~ s/ー/｜/g; print "\n"; } print "\n"; print "\n"; for (reverse(@sex)) { print "\n"; } print "\n"; print "\n"; for (reverse(@old)) { print "\n"; } print "\n"; print "\n"; for (reverse(@weait)) { print "\n"; } print "\n"; print "\n"; for (reverse(@jokey)) { print "\n"; } print "\n"; print "\n"; for (reverse(@traner)) { print "\n"; } print "\n"; &print_yosou(); print "
$_
$_
$_
\n"; for $c (0..length($i) / 3) { printf("%s
", substr($i, $c * 3, 3)); } print "
$_
$_
$_
$_
$_
"; print "
\n"; print "
\n"; print << "EOF"; EOF sub print_header { print << "EOF"; Content-type: text/html 予想！ - 辺境の予想ページ EOF } sub print_yosou { open(IN, "yosou/$id"); while () { chomp; ($name, $w1, $w2, $w3) = split; print "\n"; for (reverse(@horse)) { if ($w1 eq $_) { print "◎\n"; } elsif ($w2 eq $_) { print "○\n"; } elsif ($w3 eq $_) { print "▲\n"; } else { print "
\n"; } } print "$name\n"; } } sub check_date { my($m, $d, $h) = @_; my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $mon ++; if ($mon > $m || ($mon == $m && $mday > $d) || ($mon == $m && $mday == $d && $hour >= $h)) { return 1; } else { return 0; } }