XML::Simple 解析中文问题

lvlfforever

use XML::Simple; use Data::Dumper; my $str = '<xml><a>我的祖国</a></xml>'; my $xml = new XML::Simple; my $t   = XMLin($str); print Dumper $t;

#结果：
$VAR1 = {
          'a' => '锟揭碉拷锟斤拷锟斤拷'
        };

请问如何处理？ 另外这是什么原因导致？我知道XML::Simple 默认用XML::SAX解析。
我系统是gb2312编码

wxlfh

我的感觉是你应该要告诉XML::Simple，你的XML文件是什么编码的。

nsnake

XML::Simple有编码属性选择，如果不会用用encode等模块自己转换也可以，只要2边的编码一样就不会有什么问题

lvlfforever

encode 怎么转？

XML::Simple有编码属性，请指教。

hitsubunnu

1.不乱码的原则是：

保持 程序文件  输入文件 输出文件  3者统一

不统一的部分使用 use Encode 转换

2. 转码时 注意 宽字符 用encode方法转换

hitsubunnu

原帖由 lvlfforever 于 2009-11-18 15:10 发表
encode 怎么转？

XML::Simple有编码属性，请指教。

1. 
   
2. use Encode；
   
3. 
   
4. # utf-8 => gb2312
   
5. $str =encode("gb2312",decode("utf-8",$str));
   

复制代码

lvlfforever

原帖由 hitsubunnu 于 2009-11-18 15:14 发表



use Encode；

# utf-8 => gb2312
$str =encode("gb2312",decode("utf-8",$str));

按照hitsubunnu 的做法：

use Encode; use XML::Simple; use Data::Dumper; my $str = '<xml><a>我的祖国</a></xml>'; my $xml = new XML::Simple; my $t   = XMLin($str); my $s   = $t->{a};; print "[$s]n"; my $sg  =encode("gb2312",decode("utf-8",$s)); print "[$sg]n";

输出是一连串问号。我环境已经说了，请看楼顶。谢谢

hitsubunnu

原帖由 lvlfforever 于 2009-11-18 15:26 发表


按照hitsubunnu 的做法：

use Encode;
use XML::Simple;
use Data:umper;
my $str = '我的祖国';
my $xml = new XML::Simple;
my $t   = XMLin($str);
my $s   = $t->{a};;
print "[$s]n";
my ...

你认真读我写的这段话了吗？

不乱码的原则是：

保持 程序文件  输入文件 输出文件  3者统一

不统一的部分使用 use Encode 转换

lvlfforever

原帖由 hitsubunnu 于 2009-11-18 15:29 发表


你认真读我写的这段话了吗？

不乱码的原则是：

保持 程序文件  输入文件 输出文件  3者统一

不统一的部分使用 use Encode 转换

首先：没有输入文件。
程序文件也是gb2312跟系统编码一致。
不统一的部分使用 use Encode 转换:
  “my $sg  =encode("gb2312",decode("utf8",$s));”
请问是我理解错了么？

lvlfforever

另外输出文件就是屏幕，也跟系统一致。