合并哈希数组中的哈希属性：跨表格文件按ID合并Excel数据行

嘿，我来帮你梳理下用Perl跨表格/文件按ID合并Excel数据行的思路和实现细节哈！

先明确下你的命名习惯：因为有PHP/JS背景，你习惯把哈希（hash）看作对象，所以用$aoo表示对象数组（array of objects），这个命名逻辑我先get到啦～

核心数据结构与基础代码 #

你已经初始化了一个存储表格行数据的对象数组，先把这段代码规整下：

#!/usr/bin/env perl
use v5.10.0;
use strict;
use warnings;
use Data::Dump;
use Data::Dumper;

# Array of objects - 每个元素对应表格中的一行数据
my $aoo1 = [ 
    { "id" => 1, "name" => "Dan", "team" => "red" },
    # 可继续添加更多行数据...
];

按ID合并数据的核心思路 #

要跨多个表格/文件合并，最高效的方式是先构建ID到对象的映射哈希，通过快速查找完成合并，具体步骤如下：

1. 构建ID映射哈希 #

把第一个对象数组的行数据，以id为键存入哈希表，方便后续快速匹配：

my %id_map;
# 遍历第一个对象数组，初始化映射
foreach my $row (@$aoo1) {
    $id_map{$row->{id}} = $row;
}

2. 合并第二个（或更多）对象数组 #

遍历其他表格的对象数组，根据ID匹配并合并字段：

# 假设$aoo2是第二个表格的对象数组
foreach my $row (@$aoo2) {
    my $id = $row->{id};
    if (exists $id_map{$id}) {
        # 合并字段：直接覆盖原有值（如果需要保留历史值可修改逻辑）
        @{$id_map{$id}}{keys %$row} = values %$row;
    } else {
        # 新ID直接加入映射
        $id_map{$id} = $row;
    }
}

# 把映射哈希转回对象数组，得到合并结果
my $merged_aoo = [values %id_map];

3. 读取多Excel文件的扩展方法 #

如果要处理多个Excel文件，推荐用Spreadsheet::XLSX模块读取表格数据并转成$aoo格式，示例代码如下：

use Spreadsheet::XLSX;

# 读取Excel文件并返回对象数组的工具函数
sub read_excel_to_aoo {
    my ($file_path) = @_;
    my $excel = Spreadsheet::XLSX->new($file_path);
    my $aoo = [];

    foreach my $sheet (@{$excel->{Worksheet}}) {
        $sheet->{MaxRow} ||= $sheet->{MinRow};
        next unless defined $sheet->{MaxRow};

        # 读取表头（假设第一行是表头）
        my @headers;
        for my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) {
            push @headers, $sheet->{Cells}[$sheet->{MinRow}][$col]->{Val};
        }

        # 读取数据行并组装成对象
        for my $row ($sheet->{MinRow}+1 .. $sheet->{MaxRow}) {
            my %row_data;
            for my $col ($sheet->{MinCol} .. $sheet->{MaxCol}) {
                my $cell = $sheet->{Cells}[$row][$col];
                $row_data{$headers[$col - $sheet->{MinCol}]} = $cell ? $cell->{Val} : undef;
            }
            push @$aoo, \%row_data;
        }
    }
    return $aoo;
}

# 调用函数读取多个Excel文件
my $aoo1 = read_excel_to_aoo('file1.xlsx');
my $aoo2 = read_excel_to_aoo('file2.xlsx');

4. 调试与验证 #

你用到的Data::Dump和Data::Dumper是调试数据结构的好帮手，合并后可以用它们确认结果：

# 简洁打印对象数组结构
dd $merged_aoo;
# 或者用Dumper输出更详细的结构
print Dumper $merged_aoo;

实用优化点 #

• ID格式一致性：确保所有表格的id字段类型统一（比如都是数字，避免字符串/数字混合），否则会导致匹配失败。
• 字段冲突处理：如果合并时遇到相同字段需要保留所有值，可以修改合并逻辑为数组存储：

  foreach my $field (keys %$row) {
      if (exists $id_map{$id}{$field}) {
          # 把已有值转为数组，再添加新值
          $id_map{$id}{$field} = [$id_map{$id}{$field}] unless ref $id_map{$id}{$field} eq 'ARRAY';
          push @{$id_map{$id}{$field}}, $row->{$field};
      } else {
          $id_map{$id}{$field} = $row->{$field};
      }
  }
  

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