Zeile finde, 1.löschen, neu ordnen.

[burli001]

HaLLo, ich hab ein kleines Problem...

Wie kann ich es machen, dass, wenn 10 Zeilen existieren, und eine 11. dazu kommt, die 1. Zeile gelöscht wird und die "11. Zeile" als 10 hinzugefügt wird?
Die Datei ist so aufgebaut:

zeitstempel|email|HP|name|TEXT

 

[threadi]

Mit welcher Sprache? Perl?

 

[burli001]

Ups vergessen, ja perl

 

[threadi]

Nun, rein vom Sinn her müsstest du nur um die erste Zeile wegzulassen die Datei öffnen

open("FILE","<datei.txt");

zeilenweise rückwärts durch die Datei gehen, aber nicht die letzte Zeile (also von 11 bis 2 zählen)

for($zeile = count(<FILE>);$zeile > 1;$zeile--)

währenddessen jede Zeile in einer Variable ergänzen, aber so herum, dass es wieder die richtige Reihenfole ist

$neu = $zeile."\n".$neu;

und diese Variable in der Datei speichern. Ob ich jetzt alles richtig geschrieben habe kann ich nicht versprechen, aber die Theorie stimmt imho.