nicht angemeldet
Hello again,
Mal so gefragt, spricht etwas dagegen, die Daten gleich "reverse" in die Dateien zu schreiben?
leider ja, da die Dateien (ca. 50) schon existieren.
Schade eigentlich ;-)
Dann musst du wohl oder übel den Weg über die reverse-Funktion gehen. Dazu musst du aber die Zeilen deiner Datei komplett in einen array einlesen und dann "umdrehen":
@zeilen = <DATEI>;
@zeilen = reverse(@zeilen);
Alternativ könntest du auch die letzte (wohl aktuellste) Zeile so ausgeben:
my $n = @zeilen;
print "$zeilen[$n]\n";
Damit müsstest du afaik das letzte Element des Arrays ausgeben können.
mfg Torsten