Perl处理XML的模块
1. 寻找Perl的已有模块,复用已有代码;
http://search.cpan.org/
2. 输入XML查询,选择评价较高的,并且能够满足自己需求的模块:
XML::Simple
更多使用参看:
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
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 ;
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
更多使用参考:
http://search.cpan.org/<wbr></wbr>~gmpassos/XML-Smart-1.6.9/lib<wbr></wbr>/XML/Smart.pm