漢字をエンコードする方法

質問

Googleで「テスト」と検索をした時に

q=%E3%83%86%E3%82%B9%E3%83%88

と、エンコードされます。

この方法をお教えいただけますでしょうか。

回答No.4

BLUEPIXY · ベストアンサー

#2>試したところ%83e%83X%83gとなりました。
ソースコードをシフトＪＩＳで書いておられるのだと思います。
ソースコードをUTF-8 に変更できるエディタをお使いであれば、
文字コードをUTF-8 に変えるだけで良いです。

ソースコードをシフトＪＩＳで書いていて、Perl の関数で、文字コードの変換をする場合、
例えば、以下のようにすると良いです。
use Encode qw(from_to);

$string="テスト";
from_to($string, "Shift_JIS", "UTF-8");#文字列をシフトＪＩＳからＵＴＦ－８へ変換する
$string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;
print $string;

回答No.3

sakusaker7

モジュールを使うのはお好みに合いませんか。

>　%83e%83X%83g

テストという文字列を与えてこの出力になったのならShiftJISで文字列を渡しています。
質問にあるような結果が欲しいのならUTF-8に変換した文字列を与えてください。

補足

ご回答ありがとうございます。

すいませんが「ＵＴＦ８への変換」に関する知識がありません。もう少し詳しくお教えいただけますでしょうか。

回答No.2

BLUEPIXY

$string="テスト";
$string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;
print $string;
とか(ＵＴＦ－８の場合質問文の例のようになります)

補足

さっそくのご回答、ありがとうございました。

試したところ

%83e%83X%83g

となりました。

どこかにミスがありますでしょうか？

回答No.1

sakusaker7

標準モジュールの URI::Escapeを使うのがお手軽でしょう。

use strict;
use warnings;
use URI::Escape;

my $str = 'テスト';
print uri_escape($str, "\x00-\x1f\x7f-\xff");

これで

%E3%83%86%E3%82%B9%E3%83%88

が出力されます(UTF-8使用の場合)。

参考URL：

http://homepage3.nifty.com/hippo2000/perltips/URI/Escape.html