Encode 和decode 问题

nancy_qiao

为什么，能不能具体讲一下呢，谢谢哈

zhlong8

nancy_qiao 发表于 2011-12-21 14:58
为什么，能不能具体讲一下呢，谢谢哈

你那个是转成 \\x 直接转换成 ASCII 了。这个我也没用过，讲个笨方法 s/\\u(....)/chr hex $1/e

nancy_qiao

zhlong8 发表于 2011-12-22 11:10
你那个是转成 \\x 直接转换成 ASCII 了。这个我也没用过，讲个笨方法 s/\\u(....)/chr hex $1/e

这个方式打印出来的是乱码，不显示中文啊
Í£³µ

zhlong8

nancy_qiao 发表于 2011-12-22 14:03
这个方式打印出来的是乱码，不显示中文啊
Í£³µ

use Encode;

$k = '\\u7ba1';

$k =~ s/\\u(....)/chr hex $1/e;

print encode 'gbk', $k; # 你终端是什么编码你就 encode 成什么，如果是 utf8 就不需要 encode 了

nancy_qiao

zhlong8 发表于 2011-12-22 14:09
use Encode;

$k = '\\u7ba1';

1ü

zhlong8

nancy_qiao 发表于 2011-12-22 14:21
1ü

你用的什么版本的 Perl 去查下相应的 chr 函数，不知道是不是以前的不能处理 unicode

nancy_qiao

zhlong8 发表于 2011-12-22 14:22
你用的什么版本的 Perl 去查下相应的 chr 函数，不知道是不是以前的不能处理 unicode

This is perl, v5.8.6 built for VMS_IA64

zhlong8

nancy_qiao 发表于 2011-12-22 14:31
This is perl, v5.8.6 built for VMS_IA64

看了下至少 5.8.8 是可以的，只要你没用 use bytes; 。你那系统支持中文吗？

nancy_qiao

我本地电脑是支持的，我写的perl程序就是想把远程server上的一个文件down到本地，那个文件里的中文是转换成unicode保存的。

nancy_qiao

问题已解决，谢谢