Perl -遍历两个散列，比较键和值

# 创建两个散列
my %hash1 = (
    key1 => 'value1',
    key2 => 'value2',
    key3 => 'value3'
);

my %hash2 = (
    key1 => 'value1',
    key2 => 'value2',
    key4 => 'value4'
);

# 遍历散列1的键值对
while (my ($key, $value) = each %hash1) {
    # 检查散列2是否存在相同的键
    if (exists $hash2{$key}) {
        # 比较键对应的值是否相等
        if ($value eq $hash2{$key}) {
            print "键$key的值相等：$value\n";
        } else {
            print "键$key的值不相等：$value 和 $hash2{$key}\n";
        }
    } else {
        print "散列2中不存在键$key\n";
    }
}