我有一个 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
非常感谢!
亚历克斯
最佳答案
使用 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";
}
关于XML::在 perl 中很简单,带有混合的 xml 文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37113405/