如何使用XML::LibXML根据节点name属性修改XML的value属性值

你已经走对路啦！用XML::LibXML修改属性其实非常直接，只需要调用节点对象的setAttribute方法就行。另外要注意一个关键细节：XML是大小写敏感的，你的示例XML里根节点是<books>（小写）、子节点是<book>（小写），但你代码里的XPath写的是/Books/Book，这会导致找不到目标节点，得先修正这个问题。

下面是完整的修正后代码：

use XML::LibXML;

my $searchString = 'Pride and Prejudice';
# 加载XML文件，注意文件名要加引号
my $xml_data = XML::LibXML->load_xml(location => 'a.xml');

# 修正XPath的大小写，匹配XML里的实际节点名
for my $node ( $xml_data->findnodes('/books/book') ) {
    my $att_name = $node->findvalue('@name');
    if ( $searchString eq $att_name ) {
        # 直接用setAttribute修改value属性的值
        $node->setAttribute('value', 'available');
    }
}

# 把修改后的XML保存到新文件（也可以直接覆盖原文件）
$xml_data->toFile('modified_books.xml');

关键说明： #

• setAttribute($attr_name, $new_value)：这个方法会直接覆盖节点上对应属性的现有值，如果属性不存在还会自动创建它（不过你的场景里每个book都有value属性，所以不用担心）。
• 大小写问题：XML的标签名、属性名都是区分大小写的，一定要保证XPath里的节点名和XML文件里的完全一致，否则会找不到目标节点。
• 保存修改：修改只在内存中生效，必须调用toFile方法把修改后的XML写入文件，否则关闭程序后所有修改都会丢失。如果想直接打印到控制台，可以用print $xml_data->toString(1);，参数1会让输出格式化，更易读。

如果需要额外的安全性检查，比如确认节点确实有value属性，可以在修改前加上：

if ($node->hasAttribute('value')) {
    $node->setAttribute('value', 'available');
}

内容的提问来源于stack exchange，提问作者BetsegaYedane