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];
}

  
  noch einer :)  
~~~perl
  
  print DAT $ALLARCHIVDB[$_] for 0..10;  

gruss