GETパラメータ
こんにちは
CGI初心者です。
http://www.perl-labo.org/formdata/getmethod/get.cgi?日本語
この様に、日本語のGETパラメータを取得したいです。
http://www.perl-labo.org/formdata/jpname/
を参考にしました。
【記述】
#!C:/Perl/bin/perl
package plab;
sub getformdata
{
local $rawdata;
local %formdata;
local @inputs;
local($input, $name, $val);
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $rawdata, $ENV{'CONTENT_LENGTH'});
}
elsif ($ENV{'REQUEST_METHOD'} eq "GET") {
$rawdata = $ENV{'QUERY_STRING'};
}
@inputs = split('&', $rawdata);
foreach $input (@inputs) {
($name, $val) = split('=', $input);
$name =~ tr/+/ /;
$val =~ tr/+/ /;
$name =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
$val =~ s/%([A-Fa-f0-9][A-Fa-f0-9])/pack("C", hex($1))/eg;
$formdata{$name} = $val;
}
return %formdata;
}
1;
実行するとサーバーエラーになってしまいます。
パスは「#!C:/Perl/bin/perl」で合っています。
記述方法のミスでしょうか?
教えて下さい!
補足
返答、遅くなり申し訳ありません。 言い方が悪くて申し訳ありませんでした。 一応、動くので確認の方は、もう少し自分で試してみます。 それからの質問でないと失礼みたいですね・・・。 ごめんなさい。 一応、ここで締め切らさせていただきます。 みなさん、ありがとうございました。