有没有简单的方法来比较Perl中的两个字符串数组？
@array1 = (value1,value2,value3...); @array2 = (value1,value3,value4...);
我需要比较如下“N”数值,
value1 eq value1 value2 eq value3 value3 eq value4
请建议我有什么模块可以做到这一点？
谢谢
解决方法
嗯……比较数组的模块,你说.
Array::Compare怎么样？
use Array::Compare;
my $compare = Array::Compare->new;
my @array1 = (value1,value3...);
my @array2 = (value1,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";
}