關(guān)于將漢字轉(zhuǎn)換成url編碼的問題[已解決]

fouter

比如將:http://a.com/a.php?a=北京
轉(zhuǎn)換成 http://a.com/a.php?a=%B1%B1%BE%A9

用perl將 "北京"的ascii碼 轉(zhuǎn)換成16進(jìn)制的"B1B1BEA9",再轉(zhuǎn)換成url識別的格式"%B1%B1%BE%A9"

google了半天沒找到想要的方法,請各位朋友給個(gè)思路,謝謝！

使用6樓hitsubunnu 的方法,已成功解決,謝謝大家！

1. 
   
2. use Encode qw(from_to);
   
3. $string="北京";
   
4. from_to($string, "Shift_JIS", "GB2312");    #需要你自己根據(jù)編碼 改一下  我的是日文系統(tǒng)
   
5. $string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;
   
6. print ...
   

復(fù)制代碼

[ 本帖最后由 fouter 于 2008-3-12 13:34 編輯 ]

Lonki

percent encoding or url encoding
http://en.wikipedia.org/wiki/Percent-encoding
也許要代理

doiob

use URI::Escape

hitsubunnu

這是perl版  不是php  你要是問cgi的我知道 php的不知道

$str =~ s/(\W)/'%'.unpack("H2", $1)/ego;

[ 本帖最后由 hitsubunnu 于 2008-3-12 08:33 編輯 ]

fouter

原帖由 hitsubunnu 于 2008-3-11 23:22 發(fā)表
這是perl版  不是php  你要是問cgi的我知道 php的不知道

$str =~ s/(\W)/'%'.unpack("H2", $1)/ego;

謝謝樓上的,但還是沒有得到我想要的結(jié)果,其實(shí)就是將漢字的字符串轉(zhuǎn)換成16進(jìn)制,再將16進(jìn)制字符串改為url識別的格式.

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. #
   
5. my $str = "北京";
   
6. $str =~ s/(\W)/'%'.unpack("H2",$1)/ego;
   
7. print $str,"\n";
   

復(fù)制代碼

結(jié)果是:%e5%8c%97%e4%ba%ac

hitsubunnu

1. 
   
2. use Encode qw(from_to);
   
3. 
   
4. $string="北京";
   
5. from_to($string, "Shift_JIS", "GB2312");    #需要你自己根據(jù)編碼 改一下  我的是日文系統(tǒng)
   
6. $string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;
   
7. 
   
8. print $string;
   

復(fù)制代碼

fouter

原帖由 hitsubunnu 于 2008-3-12 10:59 發(fā)表

use Encode qw(from_to);

$string="北京";
from_to($string, "Shift_JIS", "GB2312");    #需要你自己根據(jù)編碼 改一下  我的是日文系統(tǒng)
$string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;

print ...

謝謝哥們！

問題解決了！

多謝各位熱心的perler!