neuer Eintrag in Datei oben

[AndreasN]

Hallo,

Mit seek() glaube ich kannst du die Stelle auswählen , ich denke aber dass dann die 1. Zeile überschrieben wird.
Da bleibt dir meiner Meinung nach nichts anderes übrig als folgendes:

$neuezeile = "Hallo Welt";<

open(FILE,"<datei.txt");
my @inhalt = <FILE>;
close(FILE);

open(FILE,">datei.txt");
print FILE $neuezeile,"\n",@inhalt;
close(FILE);

(ungetestet)
Gruss
Andreas