Question

我有这样的数组：

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

这个哈希：

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

如果散列的任何值与数组的任何元素匹配，我想打印该匹配的键值。为此，我使用以下功能，它可以工作：

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

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

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

在这种情况下，我还想返回键（＆＃34; Meta＆＃34;），因为值1000在数组中，但是我没有得到它。

Answer 1

您可以使用Array::Utils中的intersect来执行此操作。

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对于小组来说应该更快。

如果数组的任何元素与另一个数组

2 个答案: