Perl嵌套哈希匹配与合并：实现多哈希数据关联并插入数据库的技术问询

看起来你卡在了关联cars和age数据这一步——age里的info3是按分组（new/old）存储的，每个分组对应多个car，所以得先把「car→info3」的映射关系建立起来，之后遍历cars的时候就能直接拿到对应的值了。

第一步：构建car到info3的反向映射 #

先遍历age哈希里的所有分组，把每个分组里的info4（被"包裹的car列表）拆出来，给每个car绑定对应的info3值，存在一个新哈希里：

# 创建哈希存储每个car对应的info3
my %car_to_age_info;
my $age_data = $objects{'age'};

foreach my $age_group (keys %$age_data) {
    my $current_info3 = $age_data->{$age_group}{'info3'};
    # 从info4中提取所有car名称（去除"包裹）
    my @cars_in_group = $age_data->{$age_group}{'info4'} =~ m/"(.*?)"/g;
    
    # 为每个car绑定对应的info3
    foreach my $car (@cars_in_group) {
        $car_to_age_info{$car} = $current_info3;
    }
}

第二步：遍历cars并关联插入数据库 #

现在有了反向映射，遍历cars时就能直接通过car名字拿到对应的info3，组合需要的数据插入数据库：

my $cars_data = $objects{'cars'};

foreach my $car (keys %$cars_data) {
    # 提取info1的内容（去除"包裹）
    my ($info1) = $cars_data->{$car}{'info1'} =~ m/"(.*?)"/g;
    # 从映射中获取对应的info3
    my $info3 = $car_to_age_info{$car};
    
    # 执行数据库插入（用参数化查询防止SQL注入，比直接拼接字符串更安全）
    $dbh->execute(
        "INSERT INTO your_table (car_name, info1, info3) VALUES (?, ?, ?)",
        $car, $info1, $info3
    );
}

额外注意事项 #

• 记得给变量加my声明为局部变量，避免全局变量污染（你原来的@info1s未用my，容易引发问题）；
• 如果有car未出现在age的info4中，$info3会是undef，可以根据需求添加判断逻辑（比如跳过该条数据或设置默认值）；
• 数据库操作务必使用参数化查询（占位符?），不要直接将变量拼入SQL语句，防止SQL注入漏洞。

这样执行后，就能得到你想要的car1 fast rust, car2 slow shiny, car3 unique shiny这类关联数据啦。

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