perl - 使用 Perl 轻松比较两个数组

Question

有没有简单的方法来比较 Perl 中的两个字符串数组？

@array1  = (value1, value2, value3...);
@array2  = (value1, value3, value4...);

我需要像下面这样比较“N”个值，

value1 eq value1 
value2 eq value3
value3 eq value4

请建议我是否有任何模块可以做到这一点？

谢谢

Answer 1

嗯...一个比较数组的模块，你说。 Array::Compare怎么样?

use Array::Compare;

my $compare = Array::Compare->new;

my @array1  = (value1, value2, value3...);
my @array2  = (value1, value3, value4...);

if ($compare->compare(\@array1, \@array2) {
  say "Arrays are the same";
} else {
  say "Arrays are different";
}

但您也可以使用智能匹配运算符。

if (@array1 ~~ @array2) {
  say "Arrays are the same";
} else {
  say "Arrays are different";
}