当我尝试以下
#!/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;