Perl处理XML的模块

Perl处理XML的模块

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

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

XML::Simple

use warnings;
use XML :: Simple;
use Data :: Dumper;

# 将XML文件转化为Hash结果
my $xml = XMLin( ' abstract_sample.xml ' );
open (HASH , ' >>XML_hash ' ) || die " cannotopenthefile:$! " ;
print HASHDumper( $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