Unicode 字符串转汉字的问题

david_95

我有一文本文件utf-8 格式的，内容是多行，如下， 中文是unicode 码

brand_standard_name:"\u5c0f\u767d\u718a",brand_scope:"DEFAULT"

我想把所有\uxxxx 的转成中文，用以下的

    while(<UCFILE>){
        $_=URI::Escape::uri_unescape($_);
        print $1."\n" if $_=~m/\u[0-9a-fA-F]{4}/g;
        $_=~s/(\u[0-9a-fA-F]{4})/pack("U",hex($1))/eg;
        $_=~s/\u//g;
        print $_."\n";
     ｝

转完了，所有中文都带 \u, 害的我还得再把\u 除去。最糟的是 后面的"DEFAULT" 变成了乱码，变成了"�ULT"

而我实验用  print pack("U",hex("\u4f73"));  却没有\u

请教为什么？ 我怎么才能处理好 unicode 中文串， 而又不改变其他字符串

RE_HASH

回复 1# david_95


    http  ://perldoc.perl.org/Encode.html
hope it helps.

jason680

回复 1# david_95

$ echo 'brand_standard_name:"\u5c0f\u767d\u718a",brand_scope:"DEFAULT"' | perl -MURI::Escape -ne '{$_=URI::Escape::uri_unescape($_);s/\\u([0-9a-fA-F]{1,4})/pack("U",hex($1))/eg;print}'
Wide character in print at -e line 1, <> line 1.
brand_standard_name:"小白熊",brand_scope:"DEFAULT"

   

david_95

多谢 jason680 , 谢谢 RE_HASH 。 好tricky ， 和我的写法就差两个字符，结果大不一样