Array::Utils就是您要查找的内容。

use Array::Utils qw(:all);

my @a = qw( a b c d );
my @b = qw( c d e f );

my @isect = intersect(@a, @b);
print join(",",@isect) . "\n";

这将生成以下预期输出

c,d

**编辑：**我没有注意到您希望不区分大小写。在这种情况下，您可以将@a替换为map{lc}@a（同样，也可以将@b替换为@a）。

对原始解决方案所做的最小更改。仅将字符串小写。

@a = qw( a b c d );
@b = qw( C D E F );
...
foreach $e (@a, @b) { 
    $union{lc $e}++ && $isect{lc $e}++ 
}

@union = keys %union;
@isect = keys %isect;

以下是一种map/grep方法：

my @a = qw(Perl PHP Ruby Python C JavaScript);
my @b = qw(erlang java perl python c snobol lisp);
my @intersection =
    grep { defined }
        @{ { map { lc ,=> $_ } @a } }
           { map { lc } @b };

# @intersection = qw(Perl Python C)

您也可以使用List::MoreUtils模块中的duplicates函数，如下所示：

use List::MoreUtils qw( duplicates );

my @php56 = qw( json big_int imap );
my @php44 = qw( json imap bcmath );

say $_
  for duplicates @php56, @php44;

# Output: json, imap

这将等于上面提到的Array::Utils模块的交集。

@a = qw(a B c d);
@b = qw(b c D e f);
@c = grep { $f = lc $_; grep lc $_ eq $f, @b } @a;

给予

B c d

1)我在某个地方找到了这个解决方案，但我不记得是在哪里了。如果有人知道，请告诉我。
2)我不知道这与其他解决方案相比有多高效。
3)真诚地说，我不知道这是怎么回事。为什么有分号而没有逗号？