Linie aus Textdatei löschen

[Beat]

Habe dazu schon einiges gefunden, welches aber darauf beruht Zeile für Zeile in ein Array zu lesen und dann nur die gewünschten Zeile in die neue Textdatei speichert. Möchte dies aber nicht so lösen.

Kommt darauf an wie du bisher dein File geöffnet hast.

traditionell

open($fh, '<',$file ) or die("$!");
while(<$fh>){
  /^$/ and next;
  #...
  push @array,$_;
}

oder mit Tie::File

tie( my @arr,'Tie::File', $file) or die ("$!");
  # mach was mit @ array
  # am Ende:
@arr = grep( /./) @arr; #kopiert nur nicht leere Zeilen
untie(@arr);

mfg Beat;