nicht angemeldet
open (DATEI, "$dir/$filename") || die "Kann Datei nicht oeffnen $!";
Den Rest spare ich mir, und schreibe:
seek(DATEI,-300000,2); # springe vom Dateiende 300000 Bytes vor
<DATEI>; # die halbe Zeile vergessen wir, wenn DU willst
@dummy = <DATEI>;
close (DATEI);
HI erstmal thx für die Antwort.
Wenn ich das jetzt richtig verstehe , dann passiert das alle Bytes die nach den 300000 kommen wieder in die neue Zeile geschrieben wird. Aber das will ich ja nicht wirklich, sondern ich will, dass die letzten 20 Zeilen in die Datei wieder geschreiben wird. Kann man das nicht auch irgendwie machen ?
cu
alligator