Moin Kujau ;)
Wenn es Dich interessiert, hier mein LogAnalyze.pm 0.0.1:
http://test.anaboe.net/LogAnalyze.pm
Einsatz vorläufig:
use LogAnalyze;
use Data::Dumper;
my $log = LogAnalyze->new('local/path/logfiles') or die 'No object';
$log->getLogFile( { 'ftp' => 'ftp.example.org',
'user' => 'example',
'pass' => 'anonym',
'ftp_dir' => 'logs',
'logfile' => 'access_log'
}) or die $LogAnalyze::ErrorMsg;
my $hashref = $log->parseLogFile;
print Dumper $hashref;
ToDo-Liste:
- RegExp für verschiedene Logfile-Arten (z.B. IIS)
- Statistiken (LogAnalyze::Stats)
- Ausgaben (LogAnalyze::Output)
- Tie::Hash implementieren
Kannst das Modul ja mal über Deine Logfiles laufen lassen, ob es da funktioniert. Ansonsten sind Hinweise, Fehlermeldungen aber auch Lob gern willkommen :)
Siechfred
--
Hinter den Kulissen passiert viel mehr, als man denkt, aber meistens nicht das, was man denkt.
Hinter den Kulissen passiert viel mehr, als man denkt, aber meistens nicht das, was man denkt.