Datei nach X Zeilen löschen

[seth]

gudn tach!

foreach $getline(@ALLARCHIVDB)
{
if($mycount < 11)
  {
  $mycount = $mycount + 1;
  print DAT $getline;
  }
}

nicht wichtig, aber das geht imho noch etwas kuerzer _und_ huebscher:

  
for(my $i=0;$i<11;++$i){  
 print DAT $ALLARCHIVDB[$i];  
}

(und schneller wird's wohl auch sein.)

prost
seth