对文件（列表）的查询及效率问题，请各位讨论下（暂时解决）

cobrawgl

原帖由 gaochong 于 2009-6-15 21:10 发表
去掉 //i 中的i,效率是高了，但相比1.pl还是慢了1秒。 谢谢！

日志文件一般在500M到5G之间，我该选1.pl还是2.pl呢？或者有其他更好的code吗？

你再加个  next 试试

cobrawgl

原帖由 hitsubunnu 于 2009-6-16 18:10 发表
使用预编译 速度会提高几个数量级的

use Data:umper;
my %index;

my @list = map{qr/$_/}('Login OK','Login incorrect');

while (my $log = ){
        grep{$index{$_}++ if $log =~ /$_/}@list ...

建议楼主做个测试，这个可能是关键啊

cobrawgl

其实在你的 正则式 后面加个 o 就可以了

while (<FILE>
{
        if (/Login i/o) {
                $incorrect++;
                next;
        }
        $ok++ if /Login O/o;
}


o   Compile pattern only once

lz 测试一下吧