Perl XML: LibXML setAttribute не меняет документ

Question

Я пытаюсь изменить атрибут XML с помощью Perl.

XML-файл выглядит следующим образом:

<Node> 
    <NodeX attr1="1" attr2="2" attr3="3"/> 
</Node> 

сценарий Perl содержит:

my @nodes = $doc->findnodes("//Node/Nodex");; 
if (@nodes) { 
    my $res = $nodes[0]->hasAttribute("attr3"); 
    if ($res) { 
    foreach (@nodes) { 
     $_->setAttribute('attr3', "10"); 
    } 
    } 
} 

В результате сценарий не изменяет атрибут. Я уже протестировал разрешения, и сценарий может писать и читать XML-файл, используя print.

setAttribute, кажется, ничего не делает, несмотря на то, что hasAttribute возвращает true.

Answer 1

Название узла: NodeX, а не Nodex. Это все, что не так с вашим кодом (за исключением того, что из ваших комментариев кажется, что вы не можете писать измененный XML обратно в файл), но это показывает более сжатый метод, который вы можете предпочесть.

use strict; 
use warnings; 

use XML::LibXML; 

my $doc = XML::LibXML->load_xml(string => <<'__END_XML__'); 
<Node> 
    <NodeX attr1="1" attr2="2" attr3="3"/> 
</Node> 
__END_XML__ 

my ($attr) = $doc->findnodes('/Node/NodeX/@attr3'); 

$attr->setValue(10) if $attr; 

print $doc->toString; 

выход

<?xml version="1.0"?> 
<Node> 
    <NodeX attr1="1" attr2="2" attr3="10"/> 
</Node>