关于将汉字转换成url编码的问题[已解决]

fouter

比如将:http://a.com/a.php?a=北京
转换成 http://a.com/a.php?a=%B1%B1%BE%A9

用perl将 "北京"的ascii码 转换成16进制的"B1B1BEA9",再转换成url识别的格式"%B1%B1%BE%A9"

google了半天没找到想要的方法,请各位朋友给个思路,谢谢！

使用6楼hitsubunnu 的方法,已成功解决,谢谢大家！

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

复制代码

[ 本帖最后由 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 发表
这是perl版  不是php  你要是问cgi的我知道 php的不知道

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

谢谢楼上的,但还是没有得到我想要的结果,其实就是将汉字的字符串转换成16进制,再将16进制字符串改为url识别的格式.

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

复制代码

结果是:%e5%8c%97%e4%ba%ac

hitsubunnu

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

复制代码

fouter

原帖由 hitsubunnu 于 2008-3-12 10:59 发表

use Encode qw(from_to);

$string="北京";
from_to($string, "Shift_JIS", "GB2312");    #需要你自己根据编码 改一下  我的是日文系统
$string=~s/(\W)/sprintf("%%%02X",unpack("C",$1))/eg;

print ...

谢谢哥们！

问题解决了！

多谢各位热心的perler!