[Perl] 读取XML值 -- XML::Simple/Data::Dumper

来源：互联网发布：anaconda 包含python 编辑：程序博客网时间：2024/06/04 19:41

分享新手初次接触xml文件读取的经历，不废话了，走你

假如有 xml文件如下：

<config><user><user1>user1_t</user1><user2>user2_t</user2></user><passwd>longNails</passwd><books><book author="author_1" title="title_1">book_1_content</book><book author="author_2" title="title_2">book_2_content</book><book author="author_3" title="title_3">book_3_content</book></books><books>books2</books></config>

xml文件结构一目了然，user/passwd/books 三个标签，怎么调用呢，这就要用到XML::Simple 和Data::Dumper

先用dumper解析xml文件，Perl代码

#!perl -wuse XML::Simple;use Data::Dumper;$xml = XMLin('f_xml.xml', ForceArray => 1);print Dumper($xml);

ForceArray => 1一定要，具体什么意思你再查下，告诉我。

运行结果如下如下：

$VAR1 = {          'passwd' => [                      'passwd'                    ],          'user' => [                    {                      'user1' => [                                 'user1_t'                               ],                      'user2' => [                                 'user2_t'                               ]                    }                  ],          'books' => [                     {                       'book' => [                                 {                                   'content' => 'book_1_content',                                   'title' => 'title_1',                                   'author' => 'author_1'                                 },                                 {                                   'content' => 'book_2_content',                                   'title' => 'title_2',                                   'author' => 'author_2'                                 },                                 {                                   'content' => 'book_3_content',                                   'title' => 'title_3',                                   'author' => 'author_3'                                 }                               ]                     },                     'books2'                   ]        };

清楚吧，这个效果你可以和原xml文件对比着看，等会儿有用。假如你要用passwd的值怎么办，最简单，perl代码

print $xml->{passwd}[0]."\n";

要是少写[0]的话会得到返回值ARRAY(0x27a016c)而不是我们想要的passwd，为什么？我在学习下，新手的必经之路。

怎么用user值呢，发现有俩user，或者说标签嵌套了两层，perl代码

print $xml->{user}[0]->{user1}[0]."\n";print $xml->{user}[0]->{user2}[0]."\n";

这就会返回user1,user2的值，你可以和passwd的调用方法对比下

怎么用book值呢，发现有仨book，而且标签栏内有属性值，这个就又不一样了，perl代码

print $xml->{books}[0]->{book}[0]->{author}."\n";print $xml->{books}[0]->{book}[0]->{title}."\n";print $xml->{books}[0]->{book}[2]->{content}."\n";

想使用属性值比如 author啊，title啊，可以看第一行第二行，但是如果要用标签值就看第三行 ->{content}，这个content 字样是用dumper解析后出来的，尝试了下可以，或者你有更简单的办法，经验啥的分享出来。

还有个同名的book标签，怎么用呢，perl代码

print $xml->{books}[1];

简单吧，下标改改就行

总的Perl代码

#!perl -wuse XML::Simple;use Data::Dumper;$xml = XMLin('f_xml.xml', ForceArray => 1);print Dumper($xml);print $xml->{passwd}[0]."\n";print $xml->{user}[0]->{user1}[0]."\n";print $xml->{user}[0]->{user2}[0]."\n";print $xml->{books}[0]->{book}[0]->{author}."\n";print $xml->{books}[0]->{book}[0]->{title}."\n";print $xml->{books}[0]->{book}[2]->{content}."\n";print $xml->{books}[1];

看了这个之后不管xml 嵌套多深，或者属性值有多少，上面的方法应该可以让你调用了，新手分享，高手莫见怪。

欢迎提出问题~

0 0