Du kannst das sehr gut zusammen machen, hier nur das Gerüst für Datei einlesen, Ausgabedatei öffnen und Zeilen schreiben.
Die Vergleichsbedingung musst du dir mit Date::Simple basteln.
Wahrscheinlich musst du zuerst aus der $line den Date-String rausholen - das hängt dann vom genauen Format der Log-Datei ab…
my $in\_filename = "/dir/filename.log";
my $out\_filename = "/dir/output.log";
local \*INFILE;
open (INFILE,$in\_filename) or die "input file open error";
my @content = ; # alle Zeilen einlesen
close INFILE;
local \*OUTFILE;
open (OUTFILE,"\>$out\_filename") or die "output file open error";
# alle Zeilen abarbeiten
foreach my $line (@content) {
# jetzt erst mal den Date rausfischen
# und in ein Date::Simple packen
if (DEINE\_SUPER\_VERGLEICHSBEDINGUNG) {
print OUTFILE $line;
}
}
close OUTFILE;
Ich hoffe, das hilft dir etwas weiter…
Gruß Uwe