Das Modul zur erfolgreichen Fälschung?

[Patrick Andrieu]

BINGO!

Es lag am Aufruf! In meinem Posting vorhin wurde parseLogFile zwei mal aufgerufen:

my $hashref = $log->parseLogFile;
.
.
.
$log->parseLogFile or die $LogAnalyze::ErrorMsg;

So aber geht's:

use Desktop::LogAnalyze;
use Data::Dumper;

my $log = LogAnalyze->new();

$log->parseLogFile or die $LogAnalyze::ErrorMsg;
my $stat = $log->statTop( { level => 50, field => 'code' } );
foreach(@$stat) {
  print $_->{code}, ': ', $_->{count}, "\n";
}
^Z
200: 2539
301: 254
304: 150
404: 36
410: 16
403: 3
206: 1
405: 1

Viele Grüße aus Frankfurt/Main,
Patrick