如何使用LibXML在Perl脚本中按条件更新XML节点值？

没问题，我来帮你搞定这个需求！你已经用XML::LibXML成功解析了XML字符串，现在只需要调整一下逻辑，拿到ref1的节点对象（而不是直接取文本），然后根据ref3的值来更新它的内容就行。

核心思路： #

• 先获取ref1的节点对象（要修改它，不能直接转成文本），这样才能对它进行修改
• 拿到ref3和ref2的文本值，用来做条件判断和赋值
• 用setData()方法直接更新节点的文本内容

修改后的完整代码： #

use XML::LibXML;
use XML::LibXSLT;

my $xml_mess = " <activity> <ref1></ref1> <ref2>id_119604</ref2> <ref3>id_342432</ref3> </activity>";
my $parser = XML::LibXML->new();
my $xml_mess_obj = $parser->parse_string($xml_mess);

# 1. 获取ref1的节点对象（要修改它，不能直接转成literal）
my $ref1_node = $xml_mess_obj->getDocumentElement->findNodes("/activity/ref1")->[0];

# 2. 获取ref3和ref2的文本值
my $ref3 = $xml_mess_obj->getDocumentElement->findNodes("/activity/ref3")->[0]->to_literal();
my $ref2 = $xml_mess_obj->getDocumentElement->findNodes("/activity/ref2")->[0]->to_literal();

# 3. 条件判断并更新ref1的内容
if ($ref3 ne '') {
    # ref3有值，把ref1设为ref3的值
    $ref1_node->setData($ref3);
} else {
    # ref3无值，把ref1设为ref2的值
    $ref1_node->setData($ref2);
}

# 可选：输出修改后的XML来验证结果
print $xml_mess_obj->toString(1); # 带缩进的格式化输出

关键细节说明： #

• findNodes()返回的是节点列表，->[0]取第一个匹配的节点（这里你的XML结构里每个ref都是唯一的，所以没问题）
• setData($value)方法会直接覆盖节点的原有文本内容，非常适合这种场景
• 如果担心节点不存在（比如ref1可能缺失），可以加个判断：if ($ref1_node)再进行修改，避免报错

你可以测试两种情况：把ref3改成空字符串<ref3></ref3>，运行代码后ref1就会变成ref2的值；恢复ref3的值，ref1就会和ref3一致。

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