Loeschen leere Zeilen (newline)

[Calocybe]

Hi Klaus!

open(IN, $dateiname);

Wie immer: open(IN, "<$dateiname") die("Can't open $dateiname for reading because: $!");

@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

Vorsicht: Das schlaegt auch an, wenn in der Zeile eine einzige 0 steht (wird dann als die Zahl 0 interpretiert, und das ist logisch false). Daher:
   next unless length($zeile); #weiter wenn Zeile leer ist

print OUT "$zeile\n";
  }
close(OUT);

So long