「沒有很好地形成」錯誤使用Perl XML ::簡單

Question

我想運行一個Perl腳本，得到一個XML文檔中的所有元素到一個數組。代碼如下：

#!/usr/bin/perl 

# Script to illustrate how to parse a simple XML file 
# and dump its contents in a Perl hash record. 

use strict; 
use XML::Simple; 

my $xs = new XML::Simple(); 

my $booklist = $xs->XMLin('./cmn_msg.xml'); 

print Dumper($data); 

當我運行這段代碼，我得到一個錯誤：

Use of tied on a handle without * is deprecated at C:/Perl/lib/XML/Parser/Expat.pm line 447. 

not well-formed (invalid token) at line 4, column 14, byte 128 at C:/Perl/lib/XML/Parser.pm line 187 

我使用的ActivePerl（v5.14.1）爲MSWin32 86多線程構建。 我想在Win7上運行這個腳本。

Answer 1

But when I run this code, I get an error: Use of tied on a handle without * is deprecated at C:/Perl/lib/XML/Parser/Expat.pm line 447.

這聽起來像一個警告，而不是一個錯誤。您有過時的XML :: Parser：安裝。

not well-formed (invalid token) at line 4, column 14, byte 128 at C:/Perl/lib/XML/Parser.pm line 187

這表明您的XML已損壞。您需要更正XML。

Answer 2

警告實際上來自一個過時的XML ::簡單的模塊：

http://www.nntp.perl.org/group/perl.perl5.porters/2011/04/msg171611.html