如果数组的任何元素与另一个数组匹配,则打印数组哈希的键

Question

我有一个像这样的数组:

my @arr = (5, 76, 1000, 21, 47);

这个哈希:

my %hash = (
      Meta => [1000],
);

如果散列的任何值与数组的任何元素匹配,我想打印该匹配的键值.为此,我使用以下函数,它的工作原理如下:

my ($match) = grep { "@{$hash{$_}}" ~~ @arr } keys %hash;

当我在数组的散列中有多个元素时会出现问题,例如:

my %hash = (
      Meta => [1000, 2],
);

在这种情况下,我还想返回键("Meta"),因为值1000在数组中,但我不明白.

Answer 1

您可以使用intersect从阵列:: utils的做到这一点.

use strict;
use warnings;
use Array::Utils 'intersect';

my @arr = (5, 76, 1000, 21, 47);
my %hash = (
      Meta => [1000, 2],
      Foo  => [1, 2, 3],
      Bar  => [47],
);

my @match = grep { intersect(@{$hash{$_}}, @arr) } keys %hash;

p @match;

这打印:

[
    [0] "Bar",
    [1] "Meta"
]

请注意,我改变$match到@match以容纳一个以上的关键,所以我可以显示匹配和不匹配的例子.

Answer 2

以下将比Array :: Utils更快,intersect因为它只构建%set1一次(而不是每个元素一次%groups):

my @set1 = (5, 76, 1000, 21, 47);
my %set1 = map { $_ => 1 } @set1;

my %groups = (
   Meta => [1000, 2],
   Foo  => [1, 2, 3],
   Bar  => [47],
);

my @matches = grep { 
    my $set2 = $groups{$_};
    grep { $set1{$_} } @$set2
} keys %groups;

对于大型组,您可能希望使用短路循环而不是内部循环grep,但grep对于小组来说应该更快.