perl – 算法效率改进

我正在创建一个日志分析器.每个错误条目都在表单中

timestamp # # human_timestamp errno #

我使用映射函数创建了散列哈希,以执行以下操作：

$logRef->{++$errCnt} =
{
    line       => $lineNum,timestamp  => $timestamp,humanStamp => $humanStamp,errno      => $errno,text       => ''
};

稍后我会做一些分析,我想在行号之间隔离条目.
分析条目也存储在哈希中……

$analysis{++$iteration} =
{
    result    => $result,startLine => $startLine,endLine   => $endLine,errors    => undef
};

$analysis {errors}将是一个数组引用.通过执行以下操作填充它.

foreach my $iteration ( keys %analysis )
{
    my @errKeys = grep { $logRef->{$_}{line} >= $analysis{$iteration}{startLine} &&
                         $logRef->{$_}{line} <= $analysis{$iteration}{endLine} }
                  keys %$logRef;

    my @errs = ();
    push @errs,$logRef->{$_}{errno} foreach ( @errKeys );

    $analysis{$iteration}{errors} = @errs;
}

我的日志文件包含30000个条目的情况并不少见.除了创建errs数组之外,分析运行得相当快.有没有更有效的方法来生成这个数组？

谢谢