作者 主題: 請問perl如何讀取中文的xml  (閱讀 3136 次)

0 會員 與 1 訪客 正在閱讀本文。

seye586

  • 懷疑的國中生
  • **
  • 文章數: 35
    • 檢視個人資料
請問perl如何讀取中文的xml
« 於: 2010-04-26 13:37 »
請問perl如何讀取中文的xml
大家好

我在web UI的input text 輸入中文
將其存入xxx.xml
原本是要將其值秀在另一個select中
UI 卻當了
cat xxx.xml 底確是中文

想說應該試在讀取xml時卻秀不出來

於是另外寫一個test.pl

#!/usr/bin/perl
use strict;
use CGI qw/:standard/;;
use XML::Simple;

my $ref=XMLin("/home/jjj/test.xml", forcearray=>1);
my $keyword=$ref->{keyword}->
  • ->{name};


if ( !open(TEST,">/home/jjj/test/keyword") )
{
print qq (Fail to Open keyword file !!);
}

foreach my $word ( @$keyword )
{
print TEST qq "$word->{keywordname}\n";
}

close(TEST);

執行時出現了
not well-formed (invalid token) at line 10, column 23, byte 296 at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/XML/Parser.pm line 187

請問如何能夠正常讀取中文的xml
請各位先進指教
謝謝!!!