1. 查找已有的模塊
http://search.cpan.org/
2. 輸入XML查詢,選擇評(píng)價(jià)較高的,且可以滿足自己需求的模塊:
XML::Simple
use warnings;
use XML::Simple;
use Data::Dumper;
#將XML文件轉(zhuǎn)化為Hash結(jié)果
復(fù)制代碼 代碼如下:
my $xml=XMLin('abstract_sample.xml');
open(HASH,'>>XML_hash')||die"can not open the file: $!";
print HASH Dumper($xml);
#想訪問(wèn)XML某個(gè)節(jié)點(diǎn)的值,需要根據(jù)XML定義路徑獲取
復(fù)制代碼 代碼如下:
print $xml->{PubmedArticle}->{MedlineCitation}->{PMID};
#可以將XML轉(zhuǎn)化為的Hash結(jié)構(gòu)重新轉(zhuǎn)換為XML輸出,但是需要注意轉(zhuǎn)化后的XML可能和原始的XML文件外表不同了
復(fù)制代碼 代碼如下:
$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