Froschpopo+2008-08-03 00:49:39--

Dieser Parser funktioniert nicht mit folgendem Sting:

Code: (dl )

$str = "Zeile 1\r\nZeile 2\r\nZeile3";

aber super klappts mit dem hier:

Code: (dl )

$str = "Zeile 1\nZeile 2\nZeile 3\n";

Mein geliebtes Kamel-Buch sagt mir: "Perl verwendet \n zur Darstellung eines "logischen" Newlines, unabhängig von der Plattform." Somit Meinst du wohl kaum \r\n, sondern eher \015\012. Und das ist unter Windows genau der Wert von \n.

Froschpopo+2008-08-03 00:49:39--

Vorläufig habe ich das jetzt so gelöst:

Code (perl): (dl )

1
2
3

39:         $text =~ s/\r//g;
40:         $text =~ s/(?<![\n\r])\n(?![\r\n])/<br \/>/g;
41:         $text =~ s/[\n\r]+(.*)[\n\r]+/\n<p>$1<\/p>\n/g;

Fühle mich dabei aber irgendwie dreckig weil ich den \r einfach nur lösche (Zeile 39)

Es mutet komisch an, dass du in der ersten Zeile alle \r löschst und in der zweiten Zeile nach \r im Lookbehind- und Lookahead-Regex suchst. Da wirst du wohl kaum \rs finden. :)
Somit sehen deine beiden Regexe eigentlich so aus:

Statt gesondert die \rs rauszukillen, würde ich (gemäß dem Kamel-Buch) empfehlen, jegliche Zeilenumbrüche ins Format des OS umzuwandeln, unter dem dein Script läuft, bevor du mit ihnen arbeitest:

Dann behandelst du auch Mac-Zeilenumbrüche (\015) immer korrekt.