Chinaunix

标题: 请教高效的数组比较方法 [打印本页]

作者: justu78 时间: 2013-07-27 13:26
标题: 请教高效的数组比较方法
本帖最后由 justu78 于 2013-07-27 17:27 编辑

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

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 时间: 2013-07-27 18:00
如果你是 5.10.1 以上版本可以用 smart match, 文档在 perlop。$array_ref1 ~~ $array_ref2 就可以知道他们是否匹配，“相等”这个概念有很多层次这里~~的行为应该正是你想要的

作者: justu78 时间: 2013-07-28 11:35

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

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

作者: zhlong8 时间: 2013-07-28 21:07

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

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

作者: justu78 时间: 2013-07-29 12:48

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

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

作者: zhlong8 时间: 2013-07-29 13:48
回复 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 时间: 2013-07-29 20:01

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

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

作者: zhlong8 时间: 2013-07-29 22:56
回复 7# justu78

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

作者: rubyish 时间: 2013-07-30 23:57

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

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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)