Zeilenumbrüche

[klaus]

Hi JEns,

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

Also, siehst Du, es geht doch schlauer, aber ich hätte da noch eine ergänzung parat

my $umbruch = '(\012\015\015\012\015\012)'; #alles ist möglich
s/($umbruch{1,2})$umbruch+/$1/g;                  # und einen, aber nicht keinen,  wollen wir doch auch zulassen

(ebenfalls ungetestet)

Klaus