Perlの文字コード変換についての質問です。

質問

Perlの文字コード変換についての質問です。
ホームページ全体は、UTF-8で作成されています。
そのため、$qsは、どうも、S-JISのようなので、UTF-8に変換して
URLデコードさせたいのですがうまくいきません。
文字化けしないで、UTF-8で作成されたページに表示させたいのですがどうすればよいでしょうか？
宜しくお願い致します。

------------------------------------
$qs = $ENV{'QUERY_STRING'};
use Encode::Guess qw/ shiftjis /;
use Encode qw/ decode /;
$enc = guess_encoding ( $qs );
if ( ref $enc ) { $utf8 = decode ( $enc->name , $qs ); }
$qs =~ tr/+/ /;
$qs =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
print "$qs";

回答No.1

twinkleluz · ベストアンサー

試してはいないのですが、URLデコードした後に文字コードを変換してみたらどうでしょう。

$qs = $ENV{'QUERY_STRING'};
use Encode::Guess qw/ shiftjis /;
use Encode qw/ decode /;
$qs =~ tr/+/ /;
$qs =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
$enc = guess_encoding ( $qs );
if ( ref $enc ) { $utf8 = decode ( $enc->name , $qs ); }
print "$qs";

お礼

回答いただきありがとうございます。
とても、助かりました！！