请教个grep cpu占用高的问题

SAS

写了段代码：
sub s_check_sz
#########################################################
#比较数组中差异的部分，并返回差异部分                   #
#调用方式：s_check_sz(\@数组1,\@数组2)                  #
#返回值：在数组1中存在，不在数组2中存在的数据           #
#已知BUG：无                                            #
#########################################################
{
        my ($tmp1,$tmp2)=@_;
        my (@retur_num);
        foreach my $tp1 (@$tmp1)
        {
                my ($sz_nu)=grep /$tp1/,@$tmp2;
                if (!$sz_nu )
                {
                        push (@retur_num,$tp1);
                }
        }
        return @retur_num;
}

运行的时候发现2个数组都在近2万个的时候，机器的cpu占用率基本在96%~99%之间浮动，请问怎么解决下这个问题？

yashiro_lj

楼主试试这种方法

1. my ($tmp1,$tmp2)=@_;
   
2. my %hash;
   
3. my @return_num;
   
4. for(@$tmp1) {
   
5.     $hash{$_} = 1;
   
6. }
   
7. my $count = 0;
   
8. for(@$tmp2) {
   
9.     $return_num[$count++] = $_ if($hash{$_});
   
10. }
    
11. return @return_num;
    

复制代码

改了一下，这种速度更快

BTW，建议s_check_sz返回数组的引用，而不是数组，按照楼主描述的应用环境，数据量应该还是蛮大的，返回数组引用性能上会更好一些

[ 本帖最后由 yashiro_lj 于 2009-8-6 17:02 编辑 ]

SAS

谢了

现在的占用率很低了。