Как узнать, являются ли значения массива ключами хэша в Perl?

Question

У меня массив сказать @array. Я хотел бы знать, какие значения массива образуют ключи хеша, скажем,% hash. Есть ли простой способ сделать это, кроме использования цикла for?

например,

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

В этом случае он должен просто выходной 'а' и 'B'.

Answer 1

Это следует сделать это:

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

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