如何在Perl中找到一个数组中的元素而不是另一个数组中的元素？

Question

我有两个数组,我想找到一个数组但不是另一个数组的元素:

例如:

@array1 = ("abc", "cde", "fgh", "ijk", "lmn")
@array2 = ("abc", "fgh", "lmn")

我需要最终得到:

@array3 = ("cde", "ijk")

Answer 1

把所述第二数组的元素到一个哈希,为了有效检查,以查看是否一个特定的元素在它,然后过滤所述第一阵列的只是那些没有所述第二数组中的元素:

my %array2_elements;
@array2_elements{ @array2 } = ();
my @array3 = grep ! exists $array2_elements{$_}, @array1;

Answer 2

请参阅如何计算两个阵列的差异？如何计算两个数组的交集？在perlfaq4.

Answer 3

my @array3;
foreach my $elem ( @array1 )
{
    if( !grep( $elem eq $_, @array2 ) )
    {
        push( @array3, $elem );
    }
}