我有两个数组，@a 和 @b。我想比较两个数组的元素。
my @a = qw"abc def efg ghy klm ghn";
my @b = qw"def ghy jgk lom com klm";
如果任何元素匹配，则设置一个标志。有什么简单的方法吗？
【问题讨论】：
$a[$i] eq $b[$i]； (2) 搜索任何匹配的那些，例如$a[$i] eq $b[$j]。你的目标是什么？
0，如果没有，则返回1。
if ( scalar List::Compare->new(\@a, \@b)->get_intersection ) {
…
}
【讨论】：
首先，您的 2 个数组需要正确写入。
@a = ("abc","def","efg","ghy","klm","ghn");
@b = ("def","efg","ghy","klm","ghn","klm");
其次，对于任意数组（例如，其元素可能引用其他数据结构的数组），您可以使用Data::Compare。
对于元素为标量的数组，您可以使用List::MoreUtils pairwise BLOCK ARRAY1 ARRAY2 进行比较，其中 BLOCK 是您的比较子例程。您可以通过以下方式模拟pairwise（如果您没有 List::MoreUtils 访问权限）：
if (@a != @b) {
$equals = 0;
} else {
$equals = 1;
foreach (my $i = 0; $i < @a; $i++) {
# Ideally, check for undef/value comparison here as well
if ($a[$i] != $b[$i]) { # use "ne" if elements are strings, not numbers
# Or you can use generic sub comparing 2 values
$equals = 0;
last;
}
}
}
附：我不确定，但List::Compare 可能总是对列表进行排序。我不确定它是否可以进行成对比较。
【讨论】：
scalar 的方式太随意了，不符合我的口味。
@a == @b 与scalar(@a) == scalar(@b) 相同，$i < @a 与$i < scalar(@a) 相同。
@a = qw"abc def efg ghy klm ghn" 不能工作？它不会被解析为用户定义的轮廓符内的列表（在这种情况下为'"'？）它应该与qw//或qw||或qw()或诸如此类没有任何不同。
my @a = "abc,def,efg,ghy,klm,ghn" 的问题的原始措辞（在布赖恩的编辑之前）
my @a = qw' abc def efg ghy klm ghn ';
my @b = qw' def ghy jgk lom com klm ';
my $flag;
foreach my $item(@a) {
$flag = @b~~$item ? 0 : 1;
last if !$flag;
}
请注意，您需要 Perl 5.10 或更高版本才能使用 smart match operator (~~)。
【讨论】：
根据'if any 元素匹配'的要求，使用集合的交集：
sub set{
my %set = map { $_, undef }, @_;
return sort keys %set;
}
sub compare{
my ($listA,$listB) = @_;
return ( (set(@$listA)-set(@$listB)) > 0)
}
【讨论】：
这是一种方式：
use warnings;
use strict;
my @a = split /,/, "abc,def,efg,ghy,klm,ghn";
my @b = split /,/, "def,ghy,jgk,lom,com,klm";
my $flag = 0;
my %a;
@a{@a} = (1) x @a;
for (@b) {
if ($a{$_}) {
$flag = 1;
last;
}
}
print "$flag\n";
【讨论】：
@a 的元素填充%a 的键，值都是1。这利用了Perl 允许具有相同名称的不同变量类型、哈希片和一个标量上下文中的数组。但是，此代码不适用于比较具有非唯一值的数组
蛮力应该对小 a n 起作用：
my $flag = 0;
foreach my $i (@a) {
foreach my $k (@b) {
if ($i eq $k) {
$flag = 1;
last;
}
}
}
对于较大的n，使用哈希表：
my $flag = 0;
my %aa = ();
$aa{$_} = 1 foreach (@a);
foreach my $i (@b) {
if ($aa{$i}) {
$flag = 1;
last;
}
}
其中一个大的n 是|@a| + |@b| > ~1000 项
【讨论】：
选中以创建一个 intersect 函数，该函数将返回两个列表中都存在的项目列表。那么你的返回值取决于相交列表中的项目数。
您可以在网上轻松找到 Perl 的 intersect 的最佳实现。我记得几年前找过它。
这是我发现的：
我的@array1 = (1, 2, 3); 我的@array2 = (2, 3, 4); 我的 %original = (); 我的@isect = (); 地图 { $original{$_} = 1 } @array1; @isect = grep { $original{$_} } @array2;【讨论】：
恕我直言，您应该使用List::MoreUtils::pairwise。但是，如果由于某种原因你不能，那么下面的 sub 将为第一个数组中的值与第二个数组中的值比较的每个索引返回一个 1。您可以根据需要推广此方法并传递您自己的比较器，但此时，只需安装 List::MoreUtils 将更有效地利用您的时间。
use strict; use warnings;
my @a = qw(abc def ghi jkl);
my @b = qw(abc dgh dlkfj jkl kjj lkm);
my $map = which_ones_equal(\@a, \@b);
print join(', ', @$map), "\n";
sub which_ones_equal {
my ($x, $y, $compare) = @_;
my $last = $#$x > $#$y ? $#$x : $#$y;
no warnings 'uninitialized';
return [ map { 0 + ($x->[$_] eq $y->[$_]) } $[ .. $last ];
}
【讨论】：
这是 Perl。 “显而易见”的解决方案：
my @a = qw"abc def efg ghy klm ghn";
my @b = qw"def ghy jgk lom com klm";
print "arrays equal\n"
if @a == @b and join("\0", @a) eq join("\0", @b);
假设“\0”不在@a 中。
但感谢您确认除了滚动您自己没有其他通用解决方案。
【讨论】：
my @a1 = qw|a b c d|;
my @a2 = qw|b c d e|;
for my $i (0..$#a1) {
say "element $i of array 1 was not found in array 2"
unless grep {$_ eq $a1[$i]} @a2
}
【讨论】：
如果您认为不同顺序的数组是不同的，您可以使用Array::Diff
if (Array::Diff->diff(\@a, \@b)->count) {
# not_same
} else {
# same
}
【讨论】：
这个问题仍然可能意味着两件事，它指出“如果任何元素匹配，则设置一个标志”：
对于案例 1，您可以这样做：
# iterate over all positions, and compare values at that position
my @matches = grep { $a[$_] eq $b[$_] } 0 .. $#a;
# set flag if there's any match at the same position
my $flag = 1 if @matches;
对于情况 2，您可以这样做：
# make a hash of @a and check if any @b are in there
my %a = map { $_ => 1 } @a;
my @matches = grep { $a{$_} } @b;
# set flag if there's matches at any position
my $flag = 1 if @matches;
请注意，在第一种情况下，@matches 保存匹配元素所在位置的索引，而在第二种情况下，@matches 保存匹配值按照它们在@b 中出现的顺序。
【讨论】：