快些,在快些,perl的小优化 -- 其他 -- IT技术博客大学习 -- 共学习共进步！

一个小程序的简单优化,经过大师指点后速度的分别

[root@localhost ~]# time cat 5000 |perl check.pl  >/tmp/b
 
real    5m59.953s
user    5m59.956s
sys     0m0.105s
[root@localhost ~]# time cat 5000 |perl check1.pl  >/tmp/a
 
real    0m0.134s
user    0m0.111s
sys     0m0.030s

下面是程序优化后的check.pl

#!/usr/bin/perl
use strict;
use warnings;
 
open A,"<a>){
        my ($md5,$ip) = split;
        $hash{$md5} = $ip;
}
while (<>){
    my $line = $_;
    if( /http:\/\/[\w.]+\/\d+\/(\w+)\// ){
        if( exists $hash{$1}){
            print $line."\n";
        }
    }
}
</a>

优化前的

<a>#!/usr/bin/perl
use strict;
use warnings;
 
open A,"</a><a>){
        my ($md5,$ip) = split;
            $hash{$md5} = $ip;
        }
while (<>){
   my $line = $_;
      foreach my $md5 ( keys %hash){
              if($line =~ /$md5/){
                    print $line."\n";
                }
      }
}
</a>

在logan中有1W的记录.cat时有5k的行.发现正则的性能实在太好,然后使用keys来取hash查所有的表,反到性能不好,但是查是否存在,hash优化的相当于的不错.

建议继续学习：

QQ技术交流群：445447336，欢迎加入！
扫一扫订阅我的微信号：IT技术博客大学习