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

Question

我想替换我的 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

Answer 1

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

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

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