XML::Simple

XML::Simple - Easy API to maintain XML (esp config files)

• http://cpan.uwinnipeg.ca/htdocs/XML-Simple/XML/Simple.html

• 可正常透過 perl -MCPAN -e shell 安裝
• 執行時會出現 could not find ParserDetails.ini 訊息, 可透過以下語法解決

  perl -MXML::SAX -e "XML::SAX->add_parser(q(XML::SAX::PurePerl))->save_parsers()"

#!/usr/bin/perl
 
use XML::Simple qw(:strict);
 
$ref = XMLin('/tmp/t.xml',
    ForceArray => 1,
    KeyAttr    => {},
);
 
$receiverlist=$ref->{receiverlist}[0];
$i=0;
foreach $receiverinfo (@{$receiverlist->{object}}) {
        $i++;
        print("$i:");
        $orgid=$receiverinfo->{orgid}[0];
        $unitid=ref($receiverinfo->{unitid}[0]) eq "HASH"?"":$receiverinfo->{unitid}[0];
        print("[$orgid$unitid]\n");
}
exit;

/tmp/t.xml

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE g2b2c-envelope SYSTEM "envelope.dtd">
<g2b2c-envelope>
:
:
<receiverlist>
<object type="addressbook">
<orgid>341000000A</orgid>
<unitid>U000020</unitid>
<orgname>行政院研究發展考核委員會</orgname>
<note></note>
</object>
<object type="addressbook">
<orgid>313000000G</orgid>
<unitid></unitid>
<orgname>經濟部</orgname>
<note></note>
</object>
</receiverlist>
:
:
</g2b2c-envelope>

執行結果

[root@rdtest02 tmp]# perl t1.pl
1:[341000000AU000020]
2:[313000000G]

• 3.18. "could not find ParserDetails.ini"
• ref EXPR
• Stepping up from XML::Simple to XML::LibXML