perl 如何把url中的编码转化为汉字

公孙孟

大家好  http://www.baidu.com/s?wd=%CA%D6%BB%FA  用perl如何把wd=后面的编码转换为汉字?  

公孙孟

自己先顶起

rubyish

try:

1. my $s = 'http://www.baidu.com/s?wd=%E7%BC%96%E7%A0%81%E8%BD%AC%E6%8D%A2';
   
2. $s =~ s/%(..)/pack 'C', hex $1/eg;
   
3. print $s;

复制代码

公孙孟

谢谢你 成功了 又学到东西了 回复 3# rubyish


   

kangwenyi

学习了！~~~~

rubyish

现在能用了

grshrd49

回复 3# rubyish


    那则么转换\u89c6\u9891这样的Unicode16进制编码呢

rubyish

grshrd49 发表于 2013-05-24 06:19
回复 3# rubyish

1. binmode(STDOUT, ':utf8');
   
2. print map { /\\u(\w+)/; chr hex $1 } <DATA>;
   
3. 
   
4. __DATA__
   
5. \u89c6
   
6. \u9891

复制代码