Perl处理XML的模块

Perl处理XML的模块

1. 寻找Perl的已有模块，复用已有代码；
http://search.cpan.org/

2. 输入XML查询，选择评价较高的，并且能够满足自己需求的模块：

XML::Simple

usewarnings;
useXML::Simple;
useData::Dumper;

#将XML文件转化为Hash结果
my$xml=XMLin('abstract_sample.xml');
open(HASH,'>>XML_hash')||die"cannotopenthefile:$!";
printHASHDumper($xml);

#想访问XML某个节点的值，需要根据XML定义路径获取
print$xml->{PubmedArticle}->{MedlineCitation}->{PMID};

#可以将XML转化为的Hash结构重新转换为XML输出，但是需要注意转化后的XML可能和原始的XML文件外表不同了
$MeSH_XML=XMLout($xml->{PubmedArticle}->{MedlineCitation}->{MeshHeadingList});
print$MeSH_XML;

更多使用参看：
http://search.cpan.org/~grantm<wbr></wbr>/XML-Simple-2.18/lib/XML<wbr></wbr>/Simple.pm


XML::Smart

my $xml=XML::Smart->new('abstract

<wbr></wbr>_sample.xml');

更多使用参考：
http://search.cpan.org/<wbr></wbr>~gmpassos/XML-Smart-1.6.9/lib<wbr></wbr>/XML/Smart.pm