Perl解析嵌套数据集或XML提取plan属性的方法及语法修正

• 跨级访问嵌套结构：activeplanloc本质是数组引用，原代码没有先遍历数组里的每个位置元素，直接试图从数组层级取activeplan，完全跳过了结构中间的层级
• 未兼容结构差异：每个位置元素下的activeplan/pastplan存在两种形态——单个计划时是哈希引用、多个计划时是哈希数组引用，不做类型判断直接当数组遍历会触发运行时错误
• 变量名笔误：循环取值时把当前的$planArrayItem误写为$projArrayItem，就算循环正常执行也无法取到对应字段值

# 通用提取逻辑，同时兼容active/past两类计划的结构特征
sub fetch_all_plans {
    my ($raw_data, $plan_category) = @_;
    my $loc_root_key = "${plan_category}planloc";
    my $plan_node_key = "${plan_category}plan";
    my @plan_pool;

    # 遍历位置数组的每一个条目
    foreach my $loc_entry (@{ $raw_data->{"${plan_category}plans"}->{$loc_root_key} }) {
        my $plan_payload = $loc_entry->{$plan_node_key};
        # 兼容单条计划（哈希）、多条计划（哈希数组）两种结构
        if (ref $plan_payload eq 'HASH') {
            push @plan_pool, $plan_payload;
        } elsif (ref $plan_payload eq 'ARRAY') {
            push @plan_pool, @$plan_payload;
        }
    }
    return @plan_pool;
}

# 提取所有活跃计划的字段
my @active_plans = fetch_all_plans($data, 'active');
my $output_html = '';
foreach my $single_plan (@active_plans) {
    next unless exists $single_plan->{numpersons};
    $output_html .= "<li>Number of persons: $single_plan->{numpersons}</li>";
}

对你的当前场景，直接解析XML并没有明显优势：

• 你现在内存中的哈希结构本身就是XML转换后的结果，再额外走一次XML解析流程只会增加不必要的性能开销
• 你遇到的单节点转哈希、多节点转数组的结构不一致问题，是XML转哈希工具的通用问题，不管是直接解析XML还是处理现有哈希结构，都需要写兼容逻辑，没有本质的复杂度差异
• 如果你的数据源是原生XML、不需要预先转成Perl哈希的话，借助XML解析库通过XPath路径定位所有计划节点，可以省去手写嵌套遍历的步骤，但需要额外引入模块依赖，整体开发成本和处理现有哈希结构基本持平

内容的提问来源于stack exchange，提问作者Off The Gold