In Logdatei nur die 3 neuesten Einträge zulassen

[Ted]

Hi,

könnte es so klappen?

*örgs* weiß ich nicht, der Code ist mir zu umständlich.

open (LOG, '/usr/local/httpd/cgi-bin/datei.txt') or die "Kann datei.txt nicht oeffnen: $!";
my @loglines = <LOG>;
close (LOG);
my $new_logline = "Die neue Zeile\n";
open (LOG, '>/usr/local/httpd/cgi-bin/datei.txt') or die "Kann datei.txt nicht schreiben: $!";
print LOG $loglines[-2], $loglines[-1], $new_logline;
close (LOG) or die "Kann datei.txt nicht schliessen: $!";

Ungetestet.

Cheatah

Hi Cheatah,

hm, achso, mit -2, oder -1 kann ich die hinteren Elemente einer Liste ansprechen?

Dank Dir, ich werde es testen und geb Bescheid, obs klappt.

Ted

P.S.: Wieder was gelernt! :-)