Zeilen löschen ----

[alligator]

Sorry hier nochmal der QT, den hats mir zerhauen ...

#!/usr/bin/perl -w
use strict;

my $dir = ".";
my $zeile = 10;
my @array;
opendir(DIR,"$dir")|| die "Kann Pfad nicht oeffnen $!";
@array = readdir (DIR);
closedir(DIR);
#@array = glob("*.txt");

foreach (@array)
{

if (($_ =~ /.txt$/)&& (300000 < (-s "$_")))
 {
  my @dummy;
  open (DATEI, "$_") || die "Kann Datei nicht oeffnen $!";
  @dummy = <DATEI>;
  close (DATEI);
  my $l = @dummy;
  print "Länge ist : ".(-s "$_")."\n";
  if ($l > $zeile)
  {
  my @dummy2;
  print " Zeilen:$l - Datei:$_ \n";
  my $mx =$l-1;
  my $myz = $l-$zeile;
  for ($myz;$mx>=$myz;$myz++)
   {
   push(@dummy2, $dummy[$myz]);
   }
  open (DATEI, ">$_") || die "Kann Datei nicht oeffnen $!";
  print DATEI @dummy2;
  close (DATEI);
  }
 }
}