XML::LibXML findnodes 未返回任何匹配的节点

Question

我有一个没有命名空间的简单 XML。

我正在使用 XML::LibXML::Reader 来解析 XML。当我得到匹配的元素时，我就完成了搜索。据我了解，该元素的类型为 XML::LibXML::Element。 （我在继续使用 XML::LibXML::Reader 时有一定的限制）

当我尝试将 findnodes 与 xpath 一起使用时，它不起作用。 这是代码

my $libXMLPattern = XML::LibXML::Pattern->new('widget');
my $element;

my $reader = XML::LibXML::Reader->new(string => $xml);
$reader->nextElement();

while ($reader->nextPatternMatch($libXMLPattern))
{
    next if ($reader->nodeType == XML_READER_TYPE_END_ELEMENT);
    $element = $reader->copyCurrentNode(1);
        last;
}
$reader->finish();


    my $xPathExp = '//component';
    my @nodes = $element->findnodes ($xPathExp);

这是 XML

<widget name="a" type="b">
<component type="C">
    <component type="ca"/>
    <component type="cb"/>
</component>
</widget>
<window>
...
</window>

请帮助我我做错了什么？

Answer 1

use strict;
use warnings;
use feature qw( say );

use XML::LibXML::Reader qw( XML_READER_TYPE_END_ELEMENT );

my $xml = <<'__EOI__';
<widget name="a" type="b">
  <component type="C">
    <component type="ca"/>
    <component type="cb"/>
  </component>
</widget>
__EOI__

my $libXMLPattern = XML::LibXML::Pattern->new('widget');

my $element;
my $reader = XML::LibXML::Reader->new( string => $xml );
while ($reader->nextPatternMatch($libXMLPattern)) {
   next if $reader->nodeType == XML_READER_TYPE_END_ELEMENT;
   $element = $reader->copyCurrentNode(1);
   last;
}
$reader->finish();

die if !$element;

say $_->getAttribute('type') for $element->findnodes('.//component');

输出：

C
ca
cb

关键是 //component 与 .//component。

//component

是

/descendant:component

Well，该元素不存在于文档中的缩写，因此没有 / 可以开始。另一方面，

.//component

是 短

./descendant:component

是 长 是

descendant:component

该路径是相对于现有节点的，因此可以对其进行处理。

下次，请提供演示该问题的最小和可运行代码。