पर्ल में हैश के चाबियाँ हैं या नहीं, तो सरणी के मान क्या हैं?

Question

मेरे पास एक सरणी है @array। मैं जानना चाहता हूं कि सरणी के कौन से मान हैंश की चाबियाँ बनाते हैं,% हैश कहते हैं। क्या लूप का उपयोग करने के अलावा इसे करने का कोई आसान तरीका है?

जैसे

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

इस मामले में यह होना चाहिए सिर्फ उत्पादन 'एक' और 'बी'।

Answer 1

यह करना चाहिए:

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

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