使用Perl的Hash::Merge合并YAML文件无法得到预期格式如何解决

你确实需要为Hash::Merge配置自定义合并规则，模块默认的预设行为无法满足按数组内元素的name字段匹配、合并对应data字段的需求。

现有代码核心问题 #

• 你定义完自定义合并规则M2后，没有调用Hash::Merge::set_behavior('M2')激活规则，程序仍然使用默认的RETAINMENT_PRECEDENT规则合并
• 数组合并的回调函数没有显式返回合并后的数组，你在循环中写的数组字面量不会作为回调返回值，最终合并结果为空
• 注释掉了name字段匹配逻辑，会导致两个数组的元素全部做笛卡尔积合并，产生大量冗余数据

修复后的代码调整 #

首先补全自定义规则调用和数组合并逻辑：

# 定义完自定义M2规则后添加这行激活规则
Hash::Merge::set_behavior('M2');

# 数组合并的回调逻辑修改为如下
ARRAY => sub {
    # 先匹配你需要的带name、data字段的数组合并场景
    if (exists $_[0][0] && ref $_[0][0] eq 'HASH' && exists $_[0][0]->{data} && exists $_[0][0]->{name}
        && exists $_[1][0] && ref $_[1][0] eq 'HASH' && exists $_[1][0]->{data} && exists $_[1][0]->{name}) {
        my @a1 = @{$_[0]};
        my @a2 = @{$_[1]};
        my %merged;
        # 先把第一个数组的元素按name存入哈希
        for my $item (@a1) {
            $merged{$item->{name}} = $item;
        }
        # 合并第二个数组的元素
        for my $item (@a2) {
            if (exists $merged{$item->{name}}) {
                # 相同name就合并data数组
                $merged{$item->{name}}{data} = [
                    @{$merged{$item->{name}}{data}},
                    @{$item->{data}}
                ];
            } else {
                # 不同name直接添加
                $merged{$item->{name}} = $item;
            }
        }
        # 显式返回合并后的数组
        return [values %merged];
    } else {
        # 普通数组直接拼接
        return [@{$_[0]}, @{$_[1]}];
    }
}

额外注意事项 #

• 确认你使用的YAML模块版本支持解析输入文件的语法，若出现格式异常可替换为YAML::XS的LoadFile和Dump方法，输出格式更稳定
• 合并前可以先打印$yml1和$yml2的结构，确认YAML解析结果符合预期，排除解析错误导致的写入异常

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