Zeilenumbrüche

[Kai Diefenbach]

Hallo allerseits,

Hi JEns,

my $umbruch = '(\015\012\015\012)';
s/($umbruch{2})$umbruch+/$1/g;

s/($umbruch{1,2})$umbruch+/$1/g;                  # und einen, aber nicht keinen,  wollen wir doch auch zulassen

So matched RE bereits auf zwei $umbruch und ersetzt diese dann mit nur einem $umbruch. Bei einer "richtigen" Eingabe wuerde also die leere Zeile entfernt werden.

(ebenfalls ungetestet)

s/($umbruch{2})$umbruch+/$1/g;
getestet - funktioniert !

Klaus

Gruss
   Kai