Perl函数中通过引用删除哈希非指定键值对的问题排查

你的代码存在几个关键问题，导致无法按预期修改原哈希：

1. 哈希重复键的先天问题 #

你定义的哈希里'EntityValidation'重复出现两次，Perl哈希的键是唯一的，后面的键值对会直接覆盖前面的。实际初始化后的%larmhash只有两个键：

%larmhash = (
    'EntityValidation' => 'pcom.cnCustomer.exp',
    'Functions' => 'arm.billing.fUtilities_Integer.xml'
);

这是你初始哈希就和预期不符的核心前提问题。

2. 遍历哈希时修改结构导致的遍历异常 #

你用each()遍历哈希的同时执行delete操作，Perl的each()依赖哈希内部迭代器，遍历过程中修改哈希结构会打乱迭代器状态，导致部分键被跳过，无法完成完整的遍历删除。

3. 可选优化：弃用已过时的Switch模块 #

Switch是非核心模块且已被Perl官方弃用，推荐用Perl 5.10+支持的given/when或直接用if/elsif判断，代码兼容性更可靠。

#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;

sub zBuildHash (\%) {
    my $lhash = shift;
    # 提前提取所有键到数组，避免遍历中修改哈希影响迭代
    my @keys = keys %$lhash;
    foreach my $key (@keys) {
        if ($key ne 'Functions') {
            delete $lhash->{$key};
        }
        # 这里可保留你原本想在Functions分支执行的操作
    }
}

sub zPrepareEntityPurgeHash {
    # 若需同一键对应多个值，可将值设为数组引用，避免覆盖
    my %larmhash = (
        'EntityValidation' => 'pcom.cnCustomer.exp',
        'Functions' => 'arm.billing.fUtilities_Integer.xml'
    );

    zBuildHash(%larmhash);
    print Dumper(\%larmhash); # 传引用给Dumper，输出结构更清晰
}

# 调用测试函数
zPrepareEntityPurgeHash();

• 提前提取哈希键：用keys %$lhash把所有键存入数组后再遍历，即使修改哈希结构也不会影响遍历完整性，确保所有非'Functions'的键都被删除。
• 替换Switch模块：用if判断替代弃用的Switch模块，避免兼容性问题。
• 优化Dumper输出：传哈希引用给Dumper，输出的结构更直观，不会把哈希拆成零散的键值列表。
• 哈希重复键处理：如果需要同一个键对应多个值，应将值设为数组引用，比如'EntityValidation' => ['arm.account.tqLedgerDataRef.xml', 'pcom.cnCustomer.exp']，避免后值覆盖前值。

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