■プログラム （sample18.cgi）if ($ENV{'REQUEST_METHOD'} eq "POST") {read(STDIN,$in,$ENV{'CONTENT_LENGTH'});}
else {$in = $ENV{'QUERY_STRING'};}
@pair = split(/&/,$in);
foreach (@pair) {
($n,$val) = split(/=/);
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$in{$n} = $val;
}
$alf = $in{'alf'};
$num = $in{'num'};
$sub = $in{'sub'};
$pwd = $in{'pwd'};
print "<form action=\"sample18.cgi\" method=POST>\n";
print "<select name=alf>";
foreach (A .. G) {
if ($alf eq $_) {$sel = ' selected';} else {$sel = '';}
print "<option value=\"$_\"$sel>$_";
}
print "</select>\n";
foreach (1 .. 5) {
if ($num eq $_) {$chk = ' checked';} else {$chk = '';}
print "<input type=radio name=num value=\"$_\"$chk>$_ \n";
}
print "<br><input type=text name=sub size=30 value=\"$sub\"><br>\n";
print "<input type=password name=pwd size=10 maxlength=8 value=\"$pwd\"><br>\n";
print "<input type=submit value=\"入力\"></form>\n";
print "$in<br>$alf $num<br>$sub<br>$pwd\n";
|
|