Perl でのPOST, GET変数取得

リクエストの種別を判定して下記のようにすれば
GETでもPOSTでも同じように取得できるっぽいです
if($ENV{‘REQUEST_METHOD’} eq “GET”){
　　　　　　　　$buffer = $ENV{‘QUERY_STRING’} . ‘&’;
　　　　　　　　@pairs = split(/&/,$buffer);
}elsif　($ENV{‘REQUEST_METHOD’} eq “POST”){
　　　　　　　　$length = $ENV{‘CONTENT_LENGTH’};
　　　　　　　　read(STDIN, $buffer, $length);
　　　　　　　　@pairs = split(/&/,$buffer);
}
　　　　　　　　foreach $pair (@pairs){
　　　　　　　　　　　　　　　　($name,$value) = split(/=/, $pair);
　　　　　　　　　　　　　　　　$value =~ tr/+/ /;
　　　　　　　　　　　　　　　　$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack(“C”, hex($1))/eg;
　　　　　　　　　　　　　　　　$param_value{$name} = $value;
　　　　　　　　}
$param_value{‘変数名’}　で value を取得

Thank you for reading this post, don't forget to subscribe!