请教高效的数组比较方法

justu78

我想比较若干个数组（数组的个数在程序运行中会变化），数组内容可能是字符串，可能是数字，不一定。 需要查看是否所有的数组完全一样，我写的子程序如下，有时数组会很大，所以我感觉效率不会高，想问下有没有更高效率的代码？

sub CompareArray{
  use strict;
  my(@array_ref)=@_;
  my($i,$j,$k,@array,@array1,$number);
  $number='[+-]?\d+[\.]?\d*[eE][+-]?\d+|[+-]?[\.]\d+[eE][+-]?\d+|[+-]?\d+[\.]?\d*|[+-]?[\.]\d+';
  for($i=0;$i<=$#array_ref-1;$i++){
   @array=@{$array_ref[$i]};
   for($j=$i+1;$j<=$#array_ref;$j++){
     @array1=@{$array_ref[$j]};
     if($#array!=$#array1){
       return(0);
     }else{
       for($k=0;$k<=$#array1;$k++){
        if($array[$k]=~/^$number$/ && $array1[$k]=~/^$number$/){
          if($array1[$k]!=$array[$k]){
            return(0);
          }
        }elsif($array[$k]!~/^$number$/ && $array1[$k]!~/^$number$/){
          if($array1[$k] ne $array[$k]){
            return(0);
          }
        }else{
          return(0);
        }
       }
     }
   }
  }
  return(1);
}

zhlong8

如果你是 5.10.1 以上版本可以用 smart match, 文档在 perlop。$array_ref1 ~~ $array_ref2 就可以知道他们是否匹配，“相等”这个概念有很多层次这里~~的行为应该正是你想要的

justu78

zhlong8 发表于 2013-07-27 18:00
如果你是 5.10.1 以上版本可以用 smart match, 文档在 perlop。$array_ref1 ~~ $array_ref2 就可以知道他们 ...

谢谢，还有这个操作符啊。看来如果考虑兼容性，还不能贸然使用

zhlong8

justu78 发表于 2013-07-28 11:35
谢谢，还有这个操作符啊。看来如果考虑兼容性，还不能贸然使用

没必要，5.10 都已经不再维护了，还兼容之前的意义不大

justu78

zhlong8 发表于 2013-07-28 21:07
没必要，5.10 都已经不再维护了，还兼容之前的意义不大

我公司里还用的是5.8.....

zhlong8

回复 5# justu78


    那可以这样

use Scalar::Util 'looks_like_number';

sub array_equal {
    my($a, $b) = @_;
    return 0 if @$a != @$b;
    for (0 .. @$a - 1) {
        if (looks_like_number $a->[$_] and looks_like_number $b->[$_]) {
            return 0 if $a->[$_] != $b->[$_];
        } else {
            return 0 if $a->[$_] ne $b->[$_];
        }
    }
    return 1;
}

looks_like_number 会对数字，符合数字语法的字符串都返回真。

justu78

zhlong8 发表于 2013-07-29 13:48
回复 5# justu78

实际 上你说的这个模块就是判断某个变量是否是数字，那我写的子程序里的变量$number就是用来作这个的（整数，浮点数，科学技术），暂时没有包括其他的数字形式，比如二进，六进，或者类似1u,1p,1A等，因为我的工作不包括这些数据格式，如果需要可以修改$number用于模式匹配，这样的话应该要比调用模块的效率要高吧？另外，我需要比较的数组不一定是两个，可能是3个，4个，5个。。。不一定的，所以单比较两个数组看不出效率来吧，关键是多个数组的比较效率如何提高呢？？？

zhlong8

回复 7# justu78


    用自己最顺手的方式解决问题就好，随着经验累积自然会找到更简洁高效的方法。测试性能可以用 Benchmark 模块，练下手自己测试吧

rubyish

zhlong8 发表于 2013-07-27 14:00
如果你是 5.10.1 以上版本可以用 smart match, 文档在 perlop。

1. $array_ref1 ~~ $array_ref2

复制代码

就可以知道他们 ...

谢谢,学习了 {:3_188:}