XML::LibXML findnodes() 在 xmlns 存在时不返回结果

dga*_*ate 1 perl xml-libxml

我正在使用 XML::LibXML::Reader 来解析一个大文档,但遇到了一个问题,即属性 xmlns 导致 findnodes() 失败。我通过添加正则表达式来删除 xmls 属性来修复它,但我想知道是否有更优雅的解决方案不涉及正则表达式。如果您删除正则表达式行 ($xml =~ s{xmlns...),您将看到“Loc = $loc”不会产生任何结果。

这是代码:

use strict;
use warnings;
use feature qw( say );
use XML::LibXML::Reader qw( XML_READER_TYPE_ELEMENT );

my $xml = <<'__EOI__';
<url xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
    <loc>http://example.com</loc>
    <lastmod>2018-10-19</lastmod>
</url>
__EOI__


$xml =~ s{xmlns="http://www.sitemaps.org/schemas/sitemap/0.9"}{};

my $reader = XML::LibXML::Reader->new( string => $xml);
while ( $reader->read ) {
    next unless $reader->nodeType == XML_READER_TYPE_ELEMENT;
    next unless $reader->name eq 'url';
    my $xml = $reader->readOuterXml;
    my $doc = XML::LibXML->load_xml(string => $xml);
    say "Doc = $doc";
    my ($loc) = $doc->findnodes('//loc');
    say "Loc = $loc";
}
Run Code Online (Sandbox Code Playgroud)

ike*_*ami 5

您要求查找命名空间为 null 和 name 的节点loc。文档中没有这样的节点,所以findnodes正确地不返回任何内容。

您想找到具有 namespacehttp://www.sitemaps.org/schemas/sitemap/0.9和 name的节点loc。您可以使用以下方法来实现:

my $doc = XML::LibXML->load_xml( string => $xml );

my $xpc = XML::LibXML::XPathContext->new();
$xpc->registerNs( sm => 'http://www.sitemaps.org/schemas/sitemap/0.9' );

my ($loc) = $xpc->findnodes('//sm:loc', $doc);
Run Code Online (Sandbox Code Playgroud)