Dateien rückwärts lesen

[Peter Squentz]

open (datei,"daten.txt") or die "Datei nicht da!";
@speicher = <datei>;
close (datei);
.
.
.
open (datei,">daten.txt");
print datei "NEUE ZEILE"; # Hier die neuen Daten in die Datei schreiben
print datei @speicher;
close (datei);

Das ist aber ganz übler Tobak! Kein flock, keine Checks der Rückgabewerte.

Peter