Das Modul zur erfolgreichen Fälschung?

[Patrick Andrieu]

Hallo Siechfred!

Nee, kann ich anhand der von Dir verlinkten Logdatei nicht nachvollziehen. Ich lade sicherheitshalber die aktuelle Modulversion noch mal hoch:

http://test.anaboe.net/LogAnalyze/

Keine Ahnung, was dann bei mir passiert, hier mein Aufruf:

  
use Desktop::LogAnalyze;  
use Data::Dumper;  
my $starttime = time();  
#open OUT, ">>desktop/output/siechfred.txt";  
  
my $log = LogAnalyze->new('local/path/logfiles') or die 'No object';  
$log->getLogFile( { 'ftp'     => 'ftp.sponge.bob',  
                    'user'    => 'Meerjungfraumann',  
                    'pass'    => 'Blaubarschbube',  
                    'ftp_dir' => 'logs',  
                    'logfile' => 'access.log.current'  
                  }) or die $LogAnalyze::ErrorMsg;  
my $hashref = $log->parseLogFile;  
print Dumper $hashref;  
#sleep(6);  
  
$log->parseLogFile or die $LogAnalyze::ErrorMsg;  
my $stat = $log->statTop( { level => 50, field => 'code' } );  
foreach(@$stat) {  
  print $_->{code}, ': ', $_->{count}, "\n";  
}  
print $/;  
my $endtime = time();  
print $endtime - $starttime, " Sekunden";  

Unter C:\Dokumente und Einstellungen\User\ die faked.log.current als log_2007-12-19.txt vorher abgespeichert, Ergebnis:

^Z
$VAR1 = 1;
200: 5078
301: 508
304: 300
404: 72
410: 32
403: 6
206: 2
405: 2

Viele Grüße aus Frankfurt/Main,
Patrick