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

发布时间：2020-12-15 23:24:30 所属栏目：大数据来源：网络整理

导读：我有一个像这样的数组： my @arr = (5,76,1000,21,47); 这个哈希： my %hash = ( Meta = [1000],); 如果散列的任何值与数组的任何元素匹配,我想打印该匹配的键值.为此,我使用以下函数,它的工作原理如下： my ($match) = grep { "@{$hash{$_}}" ~~ @arr } key

我有一个像这样的数组：

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以容纳多个键,因此我可以显示匹配和不匹配的示例.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!