有没有办法计算也是数组元素的哈希值？

Question

我有一个元素数组（@codes），其中一些元素是哈希值（％记录）中的值，但哈希值也包含数组中未包含的值（@codes）。

有没有办法计算来自％记录的哈希键的数量，其中相应的哈希值是数组@codes的一个元素？如果可能的话，我想在没有迭代循环的情况下这样做。谢谢！

Answer 1

作为如何使用map执行此操作的示例：

#!/usr/bin/perl
use strict;
use warnings;

my %records = (
    'one'   => 1,
    'two'   => 2,
    'three' => 3,
);

my @codes = ( 'one', 'three', 'fake' );

my %seen = map { $_ => 1 } @codes;
print scalar grep ( $seen{$_}, keys(%records) );

但是不要有任何幻想 - 这仍然是一个循环，它只是隐含在map函数中。