4

首先，如果有人问过这个问题，我想道歉。如果没有找到如何创建散列数组和数组散列的方法，就很难找到答案......

我正在创建一个日志分析器。每个错误条目的格式为

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 数组外，分析运行得相当快。有没有更有效的方法来生成这个数组？

谢谢

4

2 回答 2

6

每当你发现自己在说类似的东西$hash{++$counter} = ...时，问问自己使用数组 ( ) 是否更合适$array[++$counter] = ...。

检索散列元素$hash{$key}需要 Perl 通过散列函数传递键并遍历链表，执行一个或多个字符串比较以找到值。对密钥进行字符串化可能还需要一些努力。

查找数组元素要快得多。Perl 可能需要将索引转换为数字，但从那里找到保存数组值的内存位置很简单。

于 2011-09-23T16:01:09.447 回答
2

你问的是微优化。有时很难预测，所以基准测试是关键。

哈希是链表的数组。它们本质上会比使用数组慢，所以

$logRef->{++$errCnt} = ...;

比

push @$logRef, ...;

转换为数组并进行其他一些微优化会给您留下：

foreach my $analysis ( @analysis )
{
    $analysis->{errors} = [
       map $_->{errno},
         grep $_->{line} >= $analysis->{startLine}
             && $_->{line} <= $analysis->{endLine},
           @$logRef
    ];
}

甚至可能

foreach my $analysis ( @analysis )
{
    $analysis->{errors} = [
       map $_->{line} >= $analysis->{startLine}
           && $_->{line} <= $analysis->{endLine},
               ? $_->{errno}
               : (),
         @$logRef
    ];
}

因为

  • grep EXPR,和map EXPR,比grep BLOCK和快map BLOCK。
  • 当所有其他条件相同时，更少的操作会更快，因此这会切断不必要的操作。
于 2011-09-23T16:56:22.760 回答