Datei nach X Zeilen löschen

[Kai]

Hallo zusammen

Ich habe ein kleines Problem. Ich habe eine kleine Log-Datenbank (Text-DB). Bei dieser Datenbank kommen laufend Einträge per Script hinzu (Zeilen weise). Ich möchte nun, dass die Datenbank nicht mehr als zB. 30 Zeilen hat.

Die Datenbank schreibe ich so:

open (DAT , ">> $archiv") ;
flock(DAT,2) if ($lock==1) ;
print DAT "$date|$time|$phone|$msg|\n" ;
close (DAT) ;

Nur, wie kann ich nun machen, dass die DB nicht grösser als 30 Zeilen wird? Kann mir da jemand auf die Sprünge helfen?

Herzlichen Dank schon mal.

KAI