Question

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

@a=qw(1 2 a);
@b=qw(2 a 1);
我希望能判断出这样两个数组是相等的，怎么做？
如果需要用到Array::Compare，这个好像perl自己没有带是么？总觉得这种基础类应该有的，可是找了一下发现没有。。。
时间紧技术烂。。已经找了很久了实在找不到答案，会的哥哥姐姐们麻烦说的详细点哦

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

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

Answer 3

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