ポケモンの鬼！！
1998/11/07(土) 21:31:36
まず、
# 環境設定
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $str, $ENV{'CONTENT_LENGTH'});
} else {
$str = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/, $str);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$check = $FORM{'check'};
として、
print "<A HREF=\"$script?view&check=$check\">次のページへ</A>\n";
ですね。