XML ::简单的perl,带有混合的xml文件

发布时间：2020-12-16 05:34:47 所属栏目：百科来源：网络整理

导读：我有一个DEMO.xml文件,如下所示. ?xml version="1.0"?datapattern123456/patternpattern654321/patternpatternabcdefg/patternpattern owners="alex"heloworld/patternpattern owners="alex"perlprogramming/pattern/data 这是我的perl代码来解析这个文件：

我有一个DEMO.xml文件,如下所示.

<?xml version="1.0"?>
<data>
<pattern>123456</pattern>
<pattern>654321</pattern>
<pattern>abcdefg</pattern>
<pattern owners="alex">heloworld</pattern>
<pattern owners="alex">perlprogramming</pattern>
</data>

这是我的perl代码来解析这个文件：

use XML::Simple;
use strict;
use Data::Dumper;

my $xml = new XML::Simple;
my $data = $xml->XMLin("DEMO.xml");
print Dumper($data);

这就是我得到的：

$VAR1 = {
          'pattern' => [
                       '123456','654321','abcdefg',{
                         'owners' => 'alex','content' => 'heloworld'
                       },'content' => 'perlprogramming'
                       }
                     ]
        };

我可以知道如果只是打印出xml标签的内容,我该怎么办？

预期输出可能如下所示：

123456
654321
acdefg
heloworld
perlprogramming

非常感谢！

亚历克斯

规则之一使用XML :: Simple： Don’t,use something else.

我喜欢XML :: Twig,你的问题看起来像这样：

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

my $twig = XML::Twig -> new -> parsefile('DEMO.xml'); 
foreach my $pattern ( $twig -> get_xpath ('//pattern') ) {
   print $pattern -> text,"n";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!