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;

#結(jié)果：
$VAR1 = {
          'a' => '錕揭碉拷錕斤拷錕斤拷'
        };

請問如何處理？ 另外這是什么原因?qū)е�？我知道XML::Simple 默認(rèn)用XML::SAX解析。
我系統(tǒng)是gb2312編碼

wxlfh

我的感覺是你應(yīng)該要告訴XML::Simple，你的XML文件是什么編碼的。

nsnake

XML::Simple有編碼屬性選擇，如果不會用用encode等模塊自己轉(zhuǎn)換也可以，只要2邊的編碼一樣就不會有什么問題

lvlfforever

encode 怎么轉(zhuǎn)？

XML::Simple有編碼屬性，請指教。

hitsubunnu

1.不亂碼的原則是：

保持 程序文件  輸入文件 輸出文件  3者統(tǒng)一

不統(tǒng)一的部分使用 use Encode 轉(zhuǎn)換

2. 轉(zhuǎn)碼時 注意 寬字符 用encode方法轉(zhuǎn)換

hitsubunnu

原帖由 lvlfforever 于 2009-11-18 15:10 發(fā)表
encode 怎么轉(zhuǎn)？

XML::Simple有編碼屬性，請指教。

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

復(fù)制代碼

lvlfforever

原帖由 hitsubunnu 于 2009-11-18 15:14 發(fā)表



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";

輸出是一連串問號。我環(huán)境已經(jīng)說了，請看樓頂。謝謝

hitsubunnu

原帖由 lvlfforever 于 2009-11-18 15:26 發(fā)表


按照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 ...

你認(rèn)真讀我寫的這段話了嗎？

不亂碼的原則是：

保持 程序文件  輸入文件 輸出文件  3者統(tǒng)一

不統(tǒng)一的部分使用 use Encode 轉(zhuǎn)換

lvlfforever

原帖由 hitsubunnu 于 2009-11-18 15:29 發(fā)表


你認(rèn)真讀我寫的這段話了嗎？

不亂碼的原則是：

保持 程序文件  輸入文件 輸出文件  3者統(tǒng)一

不統(tǒng)一的部分使用 use Encode 轉(zhuǎn)換

首先：沒有輸入文件。
程序文件也是gb2312跟系統(tǒng)編碼一致。
不統(tǒng)一的部分使用 use Encode 轉(zhuǎn)換:
  “my $sg  =encode("gb2312",decode("utf8",$s));”
請問是我理解錯了么？

lvlfforever

另外輸出文件就是屏幕，也跟系統(tǒng)一致。