我有一个像这样的数组：
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在数组中,但我不明白.
解决方法
你可以使用
Array::Utils中的intersect来做到这一点.
use strict;
use warnings;
use Array::Utils 'intersect';
my @arr = (5,47);
my %hash = (
Meta => [1000,Foo => [1,2,3],Bar => [47],);
my @match = grep { intersect(@{$hash{$_}},@arr) } keys %hash;
p @match;
这打印：
[
[0] "Bar",[1] "Meta"
]
注意我将$match更改为@match以容纳多个键,因此我可以显示匹配和不匹配的示例.