perl处理xml的模块介绍
程序员文章站
2022-12-31 14:09:54
1. 查找已有的模块
2. 输入xml查询,选择评价较高的,且可以满足自己需求的模块:xml::simpleuse warnings;use xml::simple;us...
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;
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
下一篇: perl跳过首行读取文件的实现代码