Perl数组元素合法性校验及跨数组唯一值提取问题求助

一、优化数组元素校验逻辑 #

原有的多条件判断随着允许值增多会越来越难维护，推荐用哈希集合实现校验，不仅查找效率更高，后续新增允许值也只需修改初始化部分：

# 定义允许的取值集合，新增值直接添加到qw()内即可
my %allowed_values = map { $_ => 1 } qw(B S G D L);

for my $hon_field (@hon_data) {
    # 元素不在允许集合内则返回0
    return 0 unless exists $allowed_values{$hon_field};
}

如果允许值原本就存放在数组中，也可以直接转成哈希：

my @allowed_list = qw(B S G D L);
my %allowed_values = map { $_ => 1 } @allowed_list;

后续维护时只需更新@allowed_list，完全不用改动循环判断代码。

二、提取仅在单个数组中出现的元素 #

你的uniq函数是去除数组内的重复项，但你需要的是仅在其中一个数组中存在的元素（即两个数组的对称差集），可以通过统计元素出现次数实现：

my @results = ("B","G","S","D","N","L");
my @results2 = ("A","G","S","D","N","L");

# 统计所有元素在两个数组中的总出现次数
my %count;
$count{$_}++ for @results, @results2;

# 筛选出仅出现一次的元素（即只在一个数组里存在）
my @unique_single = grep { $count{$_} == 1 } keys %count;

# 输出结果：A, B
print join(', ', @unique_single);

如果需要保留元素在原数组中的出现顺序，可以调整逻辑：

my %in_results = map { $_ => 1 } @results;
my %in_results2 = map { $_ => 1 } @results2;

my @unique;
# 提取仅在results中存在的元素
push @unique, grep { !$in_results2{$_} } @results;
# 提取仅在results2中存在的元素，同时去重数组内的重复项
my %added;
push @unique, grep { !$in_results{$_} && !$added{$_}++ } @results2;

# 输出结果：B, A
print join(', ', @unique);

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