Perl，如何解析 XML 文件，xpath

Question

我想使用 解析 XML 文件Perl .我可以使用 XML::简单 模块，但现在我想开始使用 XML::XPath 模块，因为它使用 XPath 表达式。根据我有限的知识，我认为 XPaths 将使 future 的解析更容易，对吧？
这是我到目前为止的 Perl 代码:

use strict;
use warnings;
use XML::XPath;

my $file = "data.xml";
my $path = XML::XPath->new(filename => $file);

my $name = $path->find('/category/event/@name');
print $name."\n";

我的问题是如何分隔每个名称属性(类别/事件/@ 名称 )，以便我可以对解析的每个值执行测试。目前我只是得到一个充满解析数据的大字符串，而我想要几个可以测试的小字符串。我怎样才能做到这一点？谢谢 :-)

Answer 1

This review指出 XML::XPath 自 2003 年以来未更新，推荐 XML::LibXML 反而

use 5.010;
use strict;
use warnings;
use XML::LibXML;

my $dom = XML::LibXML->new->parse_file('data.xml');
for my $node ($dom->findnodes('/category/event/@name')) {
    say $node->toString;
}

见 XML::LibXML::Parser 和 XML::LibXML::Node .