Datei nach X Zeilen löschen

[Kai]

Hey Girom

So, ich habs jetzt geschafft die Schritte zusammen zu fügen.
Das Prolem, dass die Einträge nicht am Ende sonder am Anfang der DB eingetragen weren, kann man mit unshift(@array,"neuerEintarag"); lösen.

Gruss KAI

DB einlesen

open(ARCHIVDB,"<$pfaddb");
@ALLARCHIVDB = <ARCHIVDB>;
close(ARCHIVDB);

neuer DB-Eintrag am Anfabg des Array anfügen

unshift(@ALLARCHIVDB,"$date|$time|$msg|\n");

DB wieder in Text-Datei schreiben

$mycount = 1;
open (DAT,">$pfaddb") ;
foreach $getline(@ALLARCHIVDB)
 {
 if($mycount < 11)
  {
  $mycount = $mycount + 1;
  print DAT $getline;
  }
 }
close (DAT) ;