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

发布时间：2020-12-15 21:55:08 所属栏目：大数据来源：网络整理

导读：有没有简单的方法来比较Perl中的两个字符串数组？ @array1 = (value1,value2,value3...);@array2 = (value1,value3,value4...); 我需要比较如下“N”数值, value1 eq value1 value2 eq value3value3 eq value4 请建议我有什么模块可以做到这一点？谢谢解决

有没有简单的方法来比较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";
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!