配列の値が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 ;