使用Perl的XML::Simple修改XML指定节点值后格式异常，求解决

嘿，我来帮你搞定这个XML修改的问题！你遇到的格式异常是XML::Simple的默认特性导致的，咱们一步步来分析并修正它。

你的场景回顾 #

原始test1.xml内容：

<body> 
  <message> 
    <name>gandalf</name> 
    <attributes> 
      <value key="1">1</value> 
      <value key="2">2</value> 
      <value key="3">3</value> 
      <value key="4">4</value> 
    </attributes> 
  </message> 
</body>

你期望修改后得到的XML：

<body> 
  <message> 
    <name>gandalf</name> 
    <attributes> 
      <value key="1">1</value> 
      <value key="2">2</value> 
      <value key="3">3</value> 
      <value key="4">10</value> 
    </attributes> 
  </message> 
</body>

你之前的代码运行后，输出了带<opt>根节点、结构被扁平化的异常XML，问题主要出在XML::Simple的默认解析/输出规则和数据访问路径上。

修正后的代码 #

#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;

# 初始化XML::Simple，配置关键参数
my $xml = XML::Simple->new(
    ForceArray => ['message', 'attributes'],  # 确保指定节点始终为数组结构
    KeyAttr    => { value => 'key' },         # 用<value>的key属性作为哈希键
    RootName   => 'body',                     # 输出时指定根节点为<body>
    NoAttr     => 0,                          # 保留XML属性（比如key="4"）
);

# 解析原始XML文件
my $data = $xml->XMLin("test1.xml");

# 修改key为4的<value>节点内容
$data->{message}->[0]->{attributes}->[0]->{value}->{4} = "10";

# 生成符合预期的XML内容
my $newData = $xml->XMLout($data);

# 写入到新文件（用现代文件句柄写法更安全）
open(my $fh, '>', 'test2.xml') or die "无法打开输出文件: $!";
print $fh $newData;
close($fh);

关键参数&逻辑说明 #

• use strict;和use warnings;：这是Perl开发的最佳实践，能帮你提前捕获变量未声明、类型错误等隐性问题，避免奇怪的bug
• ForceArray => ['message', 'attributes']：强制让这些节点即使只有一个实例，也被解析为数组，这样你可以继续用->[0]的方式访问，和你原代码的逻辑一致
• KeyAttr => { value => 'key' }：告诉XML::Simple，<value>节点的key属性是它的唯一标识，解析后value会变成一个哈希，键是key的值（比如"1"、"4"），值是节点内容，这样你可以直接通过{4}定位到目标节点，简化修改操作
• RootName => 'body'：覆盖XML::Simple默认的<opt>根节点，确保输出的XML根节点是你需要的<body>

运行这段代码后，输出的test2.xml就会完全符合你的预期啦！

内容的提问来源于stack exchange，提问作者Gandalf The Gray