Perl XML 使用 XML::LibXML 获取元素节点

Perl XML get element node using XML::LibXML

我想替换我的XML文件的元素节点,但是我连获取节点都没有成功。我下面的代码适用于其他子节点,但不适用于 id 节点。

这是我的 XML 文件:

<header>
    <idset id="100">                            
        <a>item_a</a>
        <b>item_b</b>
    </idset>
</header>

这是我的代码:

#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';
use XML::LibXML;

my $file = 'test.xml';
my $parser = XML::LibXML->new();
my $doc = $parser->load_xml(location => $file);

my($object11) = $doc->findnodes('/header/idset');
say 'a: ',$object11->findvalue('./a');
say 'b: ',$object11->findvalue('./b');
say 'id: ',$object11->findvalue('./id');

当前结果:

a: item_a
b: item_b
id:

预期结果:

a: item_a
b: item_b
id: 100

id 是属性,不是元素。您需要在 xpath 表达式中使用不同的选择器样式。

say 'id: ',$object11->findvalue('./@id');

在 xpath 中,属性以 @foo 为目标。有关此语法和其他 xpath 语法的简短摘要,请参阅 https://www.w3.org/TR/1999/REC-xpath-19991116/#path-abbrev