PerlCGIデコードでつまづいています。

2011/03/13 13:25

このQ&Aのポイント

PerlCGIのデコードでつまづいています。jcode.plで$valueの値を「%E3%81%BF%E3%81%AE%E3%82%8A%E5%8F%B0」から「みのり台」の日本語に変換しようとしたのですが「%E3%81%BF%E3%81%AE%E3%82%8A%E5%8F%B0」が返されてうまくいきません。
知恵を貸して頂けないでしょうか、よろしくお願い致します。
CGIデコードでつまづいている。PerlCGIのデコードで$valueの値を「%E3%81%BF%E3%81%AE%E3%82%8A%E5%8F%B0」から「みのり台」の日本語に変換しようとしたが、うまくいかない。知恵を貸して欲しい。

CGIデコードでつまづいています。

PerlCGIのデコードでつまづいています。ｊcode.plで$valueの値を「%E3%81%BF%E3%81%AE%E3%82%8A%E5%8F%B0」から「みのり台」の日本語に変換しようとしたのですが「%E3%81%BF%E3%81%AE%E3%82%8A%E5%8F%B0」が返されてうまくいきません。申し訳ありませんが知恵を貸して頂けないでしょうか、よろしくお願い致します。 #!/usr/bin/perl require './jcode.pl'; #デコードするためのプログラム # プラウザからのデータ取込み #if ($ENV{'REQUEST_METHOD'} eq "POST") { # read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); #} #else { $buffer = $ENV{'QUERY_STRING'}; #} # プラウザからのデータ変換 #$i = 0;　#※２ @pairs = split(/&/,$buffer); foreach $pair (@pairs) { #１行毎に$name,$valueを取り出す ($name, $value) = split(/=/, $pair); # 変換演算子　tr　+　を　スペースに置き換え # $value =~ tr/+/ /; # 変換演算子　s/// 単語の構成文字にマッチ # $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # " を " に変換 # $value =~ s/"/"/g; #\n を "" に変換 # $value =~ s/\n//g; print qq( 　 <tr><td>やった</td></tr> 　 ) , "\n"; # jcodeでデコードがうまく出来ませんでした。 # 日本語に変換(デコード処理部分) &jcode'convert(*value,'sjis'); &jcode'convert(*$name,'sjis'); # $FORM{$name} = $value; #※１ # @num[$i]=$value; #※２ # $i=$i++; #※２ # $str = decode('shiftjis', $value); # $value = encode('shiftjis', $str); } @varuee = split(/&*q=/,$ENV{'QUERY_STRING'}); print qq( 　 <HTML> 　 <HEAD> 　 <TITLE>画像の検索結果</TITLE> 　 </HEAD> 　 <BODY bgcolor="#FFFFFF"> 　<H2 align="center">画像データベースの検索結果</H2> 　 　<BR> 　 <hr> 　 <CENTER> 　 <table> ); print qq( 　 <tr><td>$value</td></tr> 　 ) , "\n"; exit;

gusutaf
お礼率81% (31/38)

Perl
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

gorusura
ベストアンサー率59% (25/42)

2011/03/13 14:07 回答No.1

if($ENV{'REQUEST_METHOD'} eq "POST"){ 　　　　read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); } else{ 　　　　$buffer=$ENV{'QUERY_STRING'}; } $i=0; @buffer=split(/&/,$buffer); foreach(@buffer){ ($name,$value)=split(/=/,$_); $value=~tr/+/ /; $value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode::convert(*value,"sjis","","z"); $value=~s/</</g; $value=~s/>/>/g; $value=~s/"/"/g; $value=~s/(\n|\r)//g; } あんまり変わってませんね＾＾；；；自分の所は、これで出来てます。