Loeschen leere Zeilen (newline)

[Kai Diefenbach]

Hallo Klaus,

[...]

while (<IN>) {
»»    print OUT unless /^$/;
}
auch hier wieder Vorischt:
eine leerzeile ist nicht wirklich leer, und <IN> bringt dann ein '\n' daher,also
while (<IN>)
   {
   chomp;

Nur der Vollstaendigkeit halber:

ein chomp ist hier nicht noetig, weil der Zeilenende-Anker $, (u.a.) in Perl, auf das Ende des gesamten Strings, sowie vor einem Newline am Ende des Strings passt - und zweiteres ist ja hier der Fall.

print OUT unless /^$/;
   }

[...]

grüße
Klaus

Gruss
   Kai