如何查找数组的值是否是Perl中哈希的键？

Question

我有一个数组说@array.我想知道数组的哪些值构成哈希的键,比如%hash.除了使用for循环之外,还有一种简单的方法吗？

例如,

 @array = qw (a b c);   
 %hash = ( a => 1, b=> 2 );    

在这种情况下,它应该只输出'a'和'b'.

Answer 1

这应该这样做:

my @array = qw(a b c) ;
my %hash = ( a => 1 , b => 2 ) ;

my @result = grep { exists $hash{$_} } @array ;