求助：将文本文件解析为Perl嵌套哈希结构并理解该结构

我来帮你把这段CSV数据转换成你想要的嵌套结构，同时一步步解释代码逻辑，让你彻底理解这个结构的工作方式。

完整可运行的Perl脚本 #

#!/usr/bin/perl
use strict;
use warnings;

# 初始化我们的核心嵌套结构
my %family_hash;

# 模拟输入数据（实际使用时可以换成从文件读取）
my $raw_data = <<'END_OF_DATA';
animal, cola, husband, 36
animal, wilma, wife, 31
animal, pebbles, kid, 4
brutal, george, husband, 41
brutal, jane, wife, 39
brutal, elroy, kid, 9
cosa, homer, husband, 34
cosa, marge, wife, 37
cosa, bart, kid, 11
END_OF_DATA

# 逐行处理每一条记录
foreach my $line (split /\n/, $raw_data) {
    # 分割字段并清理多余空格
    my ($family_id, $name, $role, $age) = map { s/^\s+|\s+$//g; $_ } split /,/, $line;
    
    # 把成员信息添加到对应家庭的数组中
    push @{ $family_hash{$family_id} }, {
        name => $name,
        role => $role,
        age  => $age,
    };
}

# 可选：打印结构验证结果（需要Data::Dumper模块）
use Data::Dumper;
print Dumper(\%family_hash);

代码逐段解释 #

1. 基础规范 #

use strict; 和 use warnings; 是Perl脚本的标配，它们会强制你写出更规范的代码，帮你提前发现变量拼写错误、未定义值这类常见问题，避免踩坑。

2. 核心结构定义 #

my %family_hash; 就是我们最终要构建的嵌套结构：

• 哈希的键是家庭标识（比如animal、brutal）
• 哈希的值是一个数组引用，数组里的每个元素都是一个哈希引用，每个哈希对应一个家庭成员的详细信息（姓名、角色、年龄）

3. 数据处理逻辑 #

• 这里用 heredoc 语法模拟了输入数据，如果你的数据存在文件里，可以替换成文件读取逻辑：

  open my $data_fh, '<', 'your_data_file.txt' or die "无法打开文件: $!";
  while (my $line = <$data_fh>) {
      chomp $line; # 去掉行尾的换行符
      # 下面的分割和清理逻辑和上面一致
  }
  close $data_fh;
  

• split /\n/, $raw_data：把整个数据块按行拆分，遍历每一条记录。
• map { s/^\s+|\s+$//g; $_ } split /,/, $line：先按逗号分割每行的字段，再用map清理每个字段前后的空格（因为你的原始数据里逗号后有空格）。
• push @{ $family_hash{$family_id} }, { ... }：这是构建结构的核心操作：
  • 如果$family_hash{$family_id}还不存在，Perl会自动创建一个空的数组引用
  • @{ ... } 把数组引用解包成数组，然后用push把新的成员哈希引用添加进去

4. 验证结构 #

用Data::Dumper模块可以把整个结构打印出来，输出格式和你期望的几乎完全一致（只是会多一个$VAR1的标识，这是Dumper的默认输出，不影响结构本身）。

理解这个嵌套结构的层级 #

这个结构的层级关系可以直观地看成这样：

%family_hash
├── "animal" → [
│   ├── { name => "cola", role => "husband", age => 36 },
│   ├── { name => "wilma", role => "wife", age => 31 },
│   └── { name => "pebbles", role => "kid", age => 4 }
│ ]
├── "brutal" → [
│   ├── { name => "george", role => "husband", age => 41 },
│   ├── { name => "jane", role => "wife", age => 39 },
│   └── { name => "elroy", role => "kid", age => 9 }
│ ]
└── "cosa" → [
    ├── { name => "homer", role => "husband", age => 34 },
    ├── { name => "marge", role => "wife", age => 37 },
    └── { name => "bart", role => "kid", age => 11 }
  ]

比如，如果你想访问cosa家庭里marge的年龄，可以这么写：

print $family_hash{cosa}[1]{age}; # 输出37

（数组索引从0开始，所以marge是数组里的第二个元素，索引为1）

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