Perlについての質問箱 30箱目
■ このスレッドは過去ログ倉庫に格納されています
0337デフォルトの名無しさん
2007/04/22(日) 23:59:22use Encode qw/from_to/;
my $str = '%E8%B3%AA%E5%95%8F'; # utf8の'質問'をエスケープ
(my $dec = $str) =~ s/%([a-f\d]{2})/pack 'H2', $1/egi;
from_to($dec, 'utf8', 'cp932'); # Winのコマンドプロンプトで表示するのでcp932にしてる
print $dec;
とりあえずこれで動いてるけど？ ブラウザに出してるんなら、Shift_JISって解釈されてるとかじゃない？？
■ このスレッドは過去ログ倉庫に格納されています