perl 如何把十六进制转中文

klathleen

hi:
    一个十六进制字符串:
    my $hex_str = "shake\xE4\xB8\xBA\xE4\xBB\x80\xE4\xB9\x882\xE5\x90\x8E\xE9\x9D\xA2\xE4\xB8\x8D\xE5\xA4\x9A\xE6\x9D\xA5\xE5\x87\xA0\xE4\xB8\xAA0";

   如果直接输出的话: print $hex_str."\n";  是可以自动转换的....但是此str 都是从文件中读出来的...应该如何转换呢?
   求解~~~~

klathleen

求指导~~~~ 为什么没人回呢.....

yinyuemi

回复 1# klathleen


    sprintf ?

bikong0411

Encode::decode("UTF-8",$hex_str);

zhlong8

use Encode;

my $hex_str = "shake\xE4\xB8\xBA\xE4\xBB\x80\xE4\xB9\x882\xE5\x90\x8E\xE9\x9D\xA2\xE4\xB8\x8D\xE5\xA4\x9A\xE6\x9D\xA5\xE5\x87\xA0\xE4\xB8\xAA0";

$hex_str =~ s/\\x(..)/chr hex $1/eg;

print encode 'GBK', decode 'utf8', $hex_str; #我用的 windows 所以最后转成 GBK

结果 shake为什么2后面不多来几个0

zhlong8

上面例子中字符串里面的 \ 都要写成 \\ 才符合你的意思。还有这个正则表达式不是最终答案，比如你读取的数据本来就要表达 \ 时是不是需要用 \\ 转义下？ 那么写成 \\x 本意是 \x 却被错误转换了

klathleen

回复 4# bikong0411


    不知道你有没有做测试...我测试了下是不行的...
    这些数据都是从文件中读来的....
    如果单独定义变量的话, (my $hex_str = "shake\x0E......") 再直接输出的话,是没问题的..

1. while (<FL>) {
   
2.     chomp;
   
3. #my $content = Encode::encode("UTF-8",Encode::decode("UTF-8",$_));
   
4.     my $content = Encode::decode("UTF-8",$_);
   
5.     print $content."\n";
   
6. }
   

复制代码

klathleen

回复 6# zhlong8


    ok...谢谢老大..已搞定!   "" 双引的话貌似会帮你自己来转换了...如果写在双引中确实应该\\ 来转义~~~

bikong0411

回复 7# klathleen


    我测试了啊，在我这没问题

rubyish

谢谢藏，可惜还没看懂~哎 ，先收藏，慢慢学!