CGIとかPerlとか超初心者なんだけど、
■ このスレッドは過去ログ倉庫に格納されています
0306nobodyさん
03/07/21 14:19ID:???if($ENV{REQUEST_METHOD} eq "GET"){
$q = $ENV{QUERY_STRING};
}elsif($ENV{REQUEST_METHOD} eq "POST"){
read(STDIN,$q,$ENV{CONTENT_LENGTH});
}
@prm = split(/&/,$q);
foreach(@prm){
($k,$v) = split(/=/,$_);
$v =~tr/+/ /;
$v =~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
$FORM{$k} = $v;
}
>>293-294で全部なら
#!/usr/bin/perlと$name = $FORM{'name'};の間に上追加しれ
GETでもPOSTでも動く
■ このスレッドは過去ログ倉庫に格納されています