使用Perl以简单的方式比较两个数组

Question

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

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

我需要比较如下"N"值的数值,

value1 eq value1 
value2 eq value3
value3 eq value4

请建议我有什么模块可以做到这一点？

谢谢

Answer 1

嗯......比较数组的模块,你说.如何阵::比较？

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";
}