ネットで紹介されていた下記コードを実行すると、文字化けしてしまいます。
どうやらS-jisでデコードしてしまっているようです。
＜前提＞
"テスト" をUTF８でURLエンコードすると "%e3%83%86%e3%82%b9%e3%83%88" となる。
この "%e3%83%86%e3%82%b9%e3%83%88" を "テスト" に戻すコードが知りたい。
下記コードだと文字化けして "鄙ｻ險ｳ莨夂､ｾ" となってしまう。
＜現在のコード＞
$str = "%e3%83%86%e3%82%b9%e3%83%88";
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
print($str);
No.1
263
20
35pt
テキストデータに、これを作成して、試してみてください。
当方の環境では正常に動作しました。
$str = "%e3%83%86%e3%82%b9%e3%83%88";
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
use Encode qw/ from_to /;
&from_to( $str, "utf8", "shiftjis" );
open(FH,">test.txt");
print $str;
print FH $str;
close(FH);
結果：
テスト
作成ファイル
test.txt
内容
テスト
No.1
26320
ここでベストアンサー
35pt
テキストデータに、これを作成して、試してみてください。
当方の環境では正常に動作しました。
$str = "%e3%83%86%e3%82%b9%e3%83%88";
$str =~ tr/+/ /;
$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
use Encode qw/ from_to /;
&from_to( $str, "utf8", "shiftjis" );
open(FH,">test.txt");
print $str;
print FH $str;
close(FH);
結果：
テスト
作成ファイル
test.txt
内容
テスト
ありがとうございます。完璧です！
No.2
26320
35pt
すいません。環境について記載し忘れました。
↑テキストデータに、これを作成して、試してみてください。
当方の環境（ActivePerlv5.8.8,WinXpProSP3,Windows付属テキストエディターにて作成）では問題なく正常に動作しました。
これで正常に動作しない場合、詳しいご利用の環境を教えてください。
コメントにて補足いたします。
動作確認ですが、
結果：
テスト
作成ファイル
test.txt
内容
テスト
以上となります。
185
171
1
4
2
ありがとうございます。完璧です！