xml - Perl XML:LibXML setAttribute がドキュメントを変更しない

Question

Perl を使用して XML 属性を変更しようとしています。

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 を使用して XML ファイルを読み書きできますprint。

setAttributehasAttributetrue を返すにもかかわらず、まったく何もしないようです。