XML::Simple 解析中文问题

hitsubunnu

原帖由 lvlfforever 于 2009-11-18 15:35 发表
另外输出文件就是屏幕，也跟系统一致。

全换成 utf8 试

lvlfforever

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

全换成 utf8 试

不行。
问题的关键没有找到。继续求教吧。

infernor

原帖由 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 ...

你把数据传入到XML::Simple之前，先转换成utf8。

lvlfforever

use strict; use warnings; use Encode ; use XML::Simple; use Data::Dumper; my $str = '<xml><a>我的祖国</a></xml>'; ###$str    =~ s/([x{80}-x{FFFF}])/'&#' . ord($1) . ';'/gse; my $xml = new XML::Simple; my $t   = XMLin($str); my $s   = $t->{a};; print "[$s]n";

通过查询：http://perl-xml.sourceforge.net/faq/ 打开注释就可以解决了。
不知有没有更好的方法。

nsnake

我记错了XML::Simple没有这个属性，而是XML::Parser  
open(FOO, 'xmlgenerator |');
$p3->parse(*FOO, ProtocolEncoding => 'ISO-8859-1');
close(FOO);
不乱码的问题别人也说过了，其实说的简单点:你解析的文件编码(gb2312),你代码文件保存的编码(gb2312),你控制台的编码(gb2312)，这三点统一才能保证你看到的不是乱码，看上去很简单，但实际上很多人很难理解，你用编辑器写代码，可能它默认会给你存为utf8的格式。
控制台的编码:如果你用的是DOS窗口，它默认就是gb2312，但如果是其它控制台，也许是拉丁字符也说不定
如果还有问题，那很简单了，换个模块试下，没必要吊死在一棵树上。
求问要有耐心，我们最多给你指个方向，但不可能带着你走

[ 本帖最后由 nsnake 于 2009-11-19 13:02 编辑 ]

wxlfh

楼上正解，控制台的编码其实是最关键的。输出到控制台的时候，编码一定要和控制台一致。