Datei nach X Zeilen löschen

[Eternius]

Hallo,

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.)  
  
~~~perl
  
  print DAT $ALLARCHIVDB[$_] foreach(0..10);  

gruss