nicht angemeldet
Hi,
Nenn mir bitte eins.
Na, zum Beispiel eben VMS. Ich weiß dieses OS ist ja eigentlich off-topic, aber rumschlagen muß ich mich auch damit
Also sinngemäß s!\r\n!\n!g; s!\r!\n!g; s!\n!<br>!g; ?
nein:
hier wird mal tabula rasa gemacht. alle komischen Zeilenumbrüche weg.
damit erreichen wir, daß jeder Zeilenumbrich aus genau einem Zeichen besteht
$Text =~ s/(\015\012\012\015\015\012)/\n/g;
mehr als 2 Zeileumbrüche lassen wir einfach nicht zu
$Text =~ s/\n{3,}/\n\n/g;
das Ergebnis könntest Du immer noch anderswitig verwenden, aber:
$Text =~ s/\n/<br>/g;
$umbruch = '(\015\012\012\015\015\012)';
funktioniert allein schon deshalb genausogut, weil Perl ja versucht, die ersten optionen zuerst aufzulösen.
(getestet)
Ich weiß ja nicht, wie das mit Dir ist, aber ich achte gelegentlich auch auf Performance... :-)
sicherlich achte ich auch auf die Performance, aber die Stabilität ist für mich immer wesentlicher.
Das ist zwar langsamer, aber sicherer.
Nicht wirklich.
Probiers einfach aus.
Klaus