Loeschen leere Zeilen (newline)

[klaus]

hallo,

oder Du machst es so:

open(IN, $dateiname);
@Zeilen = <IN>;
close(IN);
open(OUT,">$dateiname");
foreach $zeile (@zeilen)
   {
   chomp $zeile; #entfernt das NEWLINE
   $zeile =~ s/\s*$//; #optional entfern leerzeichen am ende vom string
   next unless $zeile; #weiter wenn Zeile leer ist
   print OUT "$zeile\n";
  }
close(OUT);

Grüße
Klaus