试试下面这段,应该可以显示出来是否一样:
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"}
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";
}
你可以了解下“~~”操作符。。。。
需要perl 5.10
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024