数组 – 如何从数组中减去数组？

发布时间：2020-12-15 21:17:52 所属栏目：大数据来源：网络整理

导读：当我尝试以下 #!/usr/bin/perluse strict;use warnings;use Data::Dumper;my @bl = qw(red green blue);my @a = qw(green yellow purple blue pink);print Dumper [grep {not @bl} @a]; 我得到一个空数组。我本来希望从@a中减去@bl，所以输出是黄紫色的粉红

当我尝试以下

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @bl = qw(red green blue);
my @a = qw(green yellow purple blue pink);

print Dumper [grep {not @bl} @a];

我得到一个空数组。我本来希望从@a中减去@bl，所以输出是黄紫色的粉红色。

这里有什么问题？

解决方法

您需要将@bl转换成哈希来执行设置的区别：

my %in_bl = map {$_ => 1} @bl;
my @diff  = grep {not $in_bl{$_}} @a;

（编辑：李大同）

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