Re: Have hash of arrays. Want to test if variable is a member of any of the arrays

I don't think you need to build a new array, and I think any may be faster than grep because it doesn't always traverse the whole array and it potentially uses the C implementation (List::MoreUtils). I used $x instead of $a, which has special super powers.

use warnings;
use strict;
use List::MoreUtils qw(any);

my %hoa = (
    x => [ qw(a b c d) ],
    y => [ qw(e f g) ],
    z => [ qw(h i c j) ],
);

my $x = 'c';

for my $k (keys %hoa) {
    print "key $k has $x\n" if any { $_ eq $x } @{ $hoa{$k} };
}

__END__

key x has c
key z has c
[download]

Comment on Re: Have hash of arrays. Want to test if variable is a member of any of the arrays Select or Download Code

Replies are listed 'Best First'.
Re^2: Have hash of arrays. Want to test if variable is a member of any of the arrays by tobyink (Canon) on Dec 13, 2014 at 20:08 UTC
Also note that List::Util (in Perl core!) provides the `any` function as well, so you don't need List::MoreUtils. (Though you need a fairly recent List::Util.) toby döt ink	[reply] [d/l]
Re^3: Have hash of arrays. Want to test if variable is a member of any of the arrays by toolic (Bishop) on Dec 13, 2014 at 21:20 UTC
Though you need a fairly recent List::Util From perl5200delta `List::Util has been upgraded from version 1.27 to 1.38.` [download] From the CPAN Changes file, it looks like "any" was added in 1.33.	[reply] [d/l]