エンコードについて

質問

「タイトル」というテキストを
下記のコードでエンコードすると、

# 検索用エンコード
$encode = $code;
$encode =~ s/(\W)/'%' . unpack("H2", $1)/eg;
$encode =~ tr/ /+/;

%83%5e%83C%83g%83%8b
となりますが、

%E3%82%BF%E3%82%A4%E3%83%88%E3%83%AB
のようにしたいのです。

上記の検索用エンコードをどのように書き換えればできるでしょうか。
似たような記事もありましたが、明確な答えがありませんでした。
どうぞよろしくお願いいたします。

回答No.1

sakusaker7 · ベストアンサー

> %83%5e%83C%83g%83%8b
>となりますが、
>
> %E3%82%BF%E3%82%A4%E3%83%88%E3%83%AB
> のようにしたいのです。

上はShiftJISで、下はUTF-8ですか。
であるなら、Perlのバージョンにもよりますが5.8.0以降が使えるとして、

use Encode;

をスクリプトの前のほうに追加しておいて

Encode::from_to($code, 'sjis', 'utf-8'); #←追加
$encode = $code;
$encode =~ s/(\W)/'%' . unpack("H2", $1)/eg;

ですかね。

お礼

こちらでできました。
ありがとうございます。