How to find if values of an array are the keys of hash in Perl?

Question

I have an array say @array. I would like to know which values of the array form the keys of a hash, say %hash. Is there is a simple way to do it other than using a for loop?

e.g.,

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

In this case it should just output 'a' and 'b'.

You've got some bareword problems if you're using use strict; (and you should be). — Jonathan Leffler
– Jonathan Leffler, Commented Jun 8, 2012 at 18:53
Right. If that array is supposed to contain the literal letters 'a', 'b', and 'c', it should be either @array = ('a','b','c'); or @array = qw(a b c); — Mark Reed
– Mark Reed, Commented Jun 8, 2012 at 19:00
@JonathanLeffler: I use strict, I just didn't include it in the example. — Jordan
– Jordan, Commented Jun 8, 2012 at 19:39

dgw · Accepted Answer · 2012-06-08 18:56:45Z

17

This should do it:

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

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

answered Jun 8, 2012 at 18:56

dgw

13.7k11 gold badges60 silver badges56 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to find if values of an array are the keys of hash in Perl?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related