在 Perl 中获取两个字符串列表的不区分大小写的交集

Question

在第 4 章第 4.8 节（唯一列表的计算并集、交集或差异）中，Perl Cookbook 提供了这种用于获取两个整数列表的交集的技术：

@a = (1, 3, 5, 6, 7, 8);
@b = (2, 3, 5, 7, 9);
...
foreach $e (@a, @b) {
    $union{$e}++ && $isect{$e}++
}
@union = keys %union;
@isect = keys %isect;

我希望对两个字符串列表完成此操作（不区分大小写）。请问有什么有效的方法吗？

Answer 1

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）。

Answer 2

原始解决方案所需的更改量最小。只需将字符串小写即可。

@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;

Answer 3

这是一种 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)

Answer 4

您还可以使用 duplicates 函数//github.com/perl5-utils/List-MoreUtils" rel="nofollow noreferrer">List::MoreUtils 模块如下：

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 提到的模块 多于。

Answer 5

@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）真诚地，我不知道这是如何运作的。为什么有分号而不是逗号？