如何判断数组哈希（AoH）中Manager值是否存在于另一AoH中？

我来帮你搞定这个Perl里数组哈希（AoH）的存在性判断问题！

先理清楚你的场景 #

你现在有两个数组哈希：

• 第一个来自你提到的「缺失的第一条查询」，测试阶段用$qr模拟
• 第二个来自这条SQL查询的结果：

select login from CMN_INT.AK_EMPLOYEE where DIVISION = q[Terminated Employees]

测试阶段用$qr2模拟

你的核心需求是：检查第一个AoH中每个元素的Manager值，是否存在于第二个AoH的login字段里。

高效实现思路（附代码） #

最省心高效的做法是先把第二个AoH里的login值转成哈希集合——这样判断存在性的时间复杂度是O(1)，比每次遍历整个数组快太多，数据量大的时候优势更明显。

1. 先定义模拟数据（贴合你的测试场景）

假设你的模拟数据结构是这样的（如果实际结构不同，调整键名即可）：

# 第一条查询的模拟结果：每个元素包含Manager字段
my $qr = [
    { Manager => 'john_doe', Dept => 'Engineering' },
    { Manager => 'jane_smith', Dept => 'HR' },
    { Manager => 'bob_jones', Dept => 'Finance' },
];

# 第二条查询的模拟结果：每个元素包含login字段
my $qr2 = [
    { login => 'jane_smith' },
    { login => 'alice_wong' },
];

2. 转换哈希集合并判断

# 把第二个AoH的login值提取成哈希集合，用于快速查找
my %terminated_logins = map { $_->{login} => 1 } @$qr2;

# 遍历第一个AoH，逐一检查Manager是否在终止员工列表中
foreach my $emp_record (@$qr) {
    my $manager = $emp_record->{Manager};
    if (exists $terminated_logins{$manager}) {
        print "⚠️  Manager $manager 属于已终止员工列表\n";
    } else {
        print "✅  Manager $manager 不在已终止员工列表中\n";
    }
}

扩展：换成真实DBI连接后的参考代码 #

等你测试完要接入真实数据库时，可以用类似下面的代码获取AoH（记得用占位符防SQL注入，比直接写q[Terminated Employees]更安全）：

use DBI;

# 建立数据库连接（以Oracle为例，根据你的数据库调整）
my $dbh = DBI->connect("dbi:Oracle:your_db_instance", "username", "password") 
    or die "连接失败: " . DBI->errstr;

# 执行第一条查询（替换成你实际的SQL）
my $sth1 = $dbh->prepare("SELECT Manager, Dept FROM your_target_table WHERE ...");
$sth1->execute();
my $qr = $sth1->fetchall_arrayref({}); # 直接得到AoH格式的结果

# 执行第二条查询（用占位符传递参数）
my $sth2 = $dbh->prepare("SELECT login FROM CMN_INT.AK_EMPLOYEE WHERE DIVISION = ?");
$sth2->execute('Terminated Employees');
my $qr2 = $sth2->fetchall_arrayref({});

# 后续判断逻辑和上面的模拟代码完全一致

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