XML::在 perl 中很简单，带有混合的 xml 文件

Question

我有一个 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'
                       },
                       {
                         'owners' => 'alex',
                         'content' => 'perlprogramming'
                       }
                     ]
        };

请问如果只是简单的打印出xml标签的内容，应该怎么办？

预期的输出可能如下所示:

123456
654321
acdefg
heloworld
perlprogramming

非常感谢!

亚历克斯

Answer 1

使用 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";
}