Datei nach X Zeilen löschen

[Girom]

so vielleicht:

open(BACKUP, $archiv);
        @ALLBACKUP = <BACKUP>;
        close(BACKUP);
        #.:.:.:.:.:.:.:.:.
        $mycount = 1;
        open (DAT , ">$archiv") ;
        foreach $einbackup(@ALLBACKUP)
        {
            if($mycount < 30){
               $mycount = $mycount + 1;
               print DAT "$einbackup";
            }
        }
        close (DAT) ;

Gruß
Girom