数组A中不在数组B中的项目[重复]

Question

有什么方法可以快速确定数组 A 中不存在于数组 B 中的项？

到目前为止我有以下，但是可以一行完成吗？

for $aname (@anames)
{
   if (not grep { $_ eq $aname } @hrefs)
   {
        push @anamesremove, $aname;
   }
}

Answer 1

如果你知道哪个数组包含另一个

my @small  = 10..12;
my @large  = 10..15;

my %ref = map { $_ => 1 } @small;

my @diff = grep { not exists $ref{$_} } @large;

不完全是一条线，但效率很高。

如果不知道哪个包含另一个，则必须双向进行。

还有各种用于数组/列表操作的模块可以提供帮助。

一方面，来自List::Compare 的get_complement 正是需要的。

---

使用List::Util，您可以在一个语句中完成所有操作

use List::Util qw(none);

my @diff = grep { my $e = $_; none { $e eq $_ } @small } @large; 

但这有 O(NM-M²/2) 复杂度，其中 N（大）和 M em>（小）是数组大小。

Answer 2

不是单行，但在大型阵列上这可能比你的更快：

#!/usr/bin/perl
use warnings;
use 5.012;

sub difference {
    my ($first, $second) = @_;
    my %except;
    @except{ @$second } = 1;
    return [ grep { not exists $except{$_} } @$first ];
}

my @anames = ("one", "two", "three", "four", "five");
my @hrefs = ("two", "four", "six");

my $d = difference \@anames, \@hrefs;
say "@$d";