Perl，如何解析 XML 文件，xpath

Question

我想使用 Perl 解析 XML 文件。我可以使用 XML::Simple 模块，但现在我想开始使用 XML::XPath 模块，因为它使用 XPath 表达式。根据我有限的知识，我认为 XPaths 将使未来的解析更容易，对吧？ 这是我到目前为止的 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

find 方法返回一个XML::XPath::NodeSet 对象，它是找到的所有节点的集合。我无法想象你能做些什么来看到一个包含所有属性值的长字符串。

检索到节点集后，您可以使用 size、get_node 和 get_nodelist 等方法处理其内容（请参阅上面链接的文档）。 get_nodelist 将返回一个 Perl 列表，在这种情况下，XML::XPath::Node::Attribute 对象也有自己的方法。这个程序应该让你开始

use strict;
use warnings;

use XML::XPath;

my $xp = XML::XPath->new(ioref => \*DATA);

my $names = $xp->find('/category/event/@name');

for my $node ($names->get_nodelist) {
  say $node->getNodeValue;
}


__DATA__
  <category name="a">
    <event name="cat1" />  
    <event name="cat2" />  
    <event name="cat3" />  
    <event name="cat4" />  
    <event name="cat5" />  
  </category>

输出

cat1
cat2
cat3
cat4
cat5

Answer 2

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。