arrays - 如何在 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;