perl 怎么对比两个数组相等？

2024年11月16日 22:48

有3个网友回答

网友（1）：

试试下面这段,应该可以显示出来是否一样:
my (@a,@b,$i,$ind);
$ind=0;
@a=qw(1 2 a);
@b=qw(2 a 1);
@a=sort(@a);
@b=sort(@b);
for($i=0;$i<@a;$i++){
if($a[$i] ne $a[$i] ){ print "不一样!\n"; $ind=1;}
}
if($ind==0){print "一样!\n"}

网友（2）：

use Array::Compare;
my @arr1 = 0 .. 10;
my @arr2 = 0 .. 10;
my $comp1 = Array::Compare->;new;
if ($comp1->;compare(\@arr1, \@arr2)) {
print "Arrays are the same\n";
} else {
print "Arrays are different\n";
}

网友（3）：

你可以了解下“~~”操作符。。。。
需要perl 5.10