perl 如何对比两个数组是否相等？？？

zhoujianxin

perl 如何对比两个数组是否相等？？？

lgjut

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

zhoujianxin

谢谢

deathcult

这样行不行？

1. 
   
2. @a = qw/f f gf 43 f/;
   
3. @b = qw/f f   gf  43 f/;
   
4. 
   
5. 
   
6. 
   
7. print "ok" if(join(" ", @a) eq join(" ", @b));
   

复制代码

lgjut

如果数组中的元素本身带有空格，恐怕就

apile

版主的作法也對...
如果element本身有空格..
只要改一下qw地方即可..
只是如果array裡面是放reference
可能就只能比較reference位址一不一樣了？     
至於refernece裡面的數據一不一樣..
無從比較.

lgjut

也许是我没说清楚，这个怎么办：

@a = ('f f', 'gf 43 f');
@b = ('f', 'f gf 43 f');

print "ok" if(join(" ", @a) eq join(" ", @b));

deathcult

那就用其他符号隔断，再join

：）

我的方法不好，还是用Array::Compare好。