Perl实现嵌套XML转CSV（提取指定字段）的问题咨询

让我来帮你排查下代码里的问题，主要是XML结构的访问路径错误加上一个小语法问题，导致结果不符合预期。

先说说你的代码里的两个核心问题： #

• @Fields的语法错误：你用qw{id, ipAddress}定义字段，qw语法会把逗号当成字符串的一部分，导致数组元素变成"id,"和"ipAddress"，这显然不是你想要的，应该去掉逗号写成qw{id ipAddress}。
• XML结构的访问路径错误：你的XML里，每个<entity>下面嵌套了<devicesDTO>标签：
  • id是<devicesDTO>的属性（比如<devicesDTO displayName="20" id="20">）
  • ipAddress是<devicesDTO>的子元素
    而你原来的代码直接从$entity里取这两个字段，相当于找错了层级，自然拿不到正确的值。

修正后的完整代码 #

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

# 去掉qw里的逗号，正确定义目标字段
my @Fields = qw{id ipAddress};
open(my $out, '>', 'output.csv') or die "Output: $!\n";
print $out join(',', @Fields) . "\n";

# ForceArray => ['entity']是正确的，确保entity被解析为数组结构
my $xml = XMLin('input.xml', ForceArray => ['entity']);

foreach my $entity (@{$xml->{entity}}) {
    # 先获取嵌套的devicesDTO结构
    my $dto = $entity->{devicesDTO};
    # 从dto中提取目标值：id是属性，ipAddress是子元素文本
    my $id = $dto->{id};
    my $ip = $dto->{ipAddress};
    # 输出到CSV文件
    print $out join(',', $id, $ip) . "\n";
}
close($out); # 记得关闭文件句柄，这是个好习惯

补充调试小技巧 #

你可以在循环里加入print Dumper($entity);，这样能直观看到XML解析后的hash结构，方便快速定位字段的正确访问路径。

运行修正后的代码，你会得到符合预期的CSV输出：

id,ipAddress
20,1.1.1.1
21,2.2.2.2

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