perl处理xml的模块介绍

1. 查找已有的模块

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"can not open the file: $!";
print hash dumper($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/xml-simple-2.18/lib/xml/simple.pm

xml::smart

my $xml=xml::smart->new('abstract_sample.xml');

更多使用参考：
http://search.cpan.org/~gmpassos/xml-smart-1.6.9/lib/xml/smart.pm