Opened by Froschpopo at 2008-04-13 18:34
User since
2003-08-15
2653 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
2653 Artikel
BenutzerIn
soo da bin ich wieder :-)
Ich dachte mir, ich mache hier mal weiter, und schon ist die Kacke wieder am dampfen!
Dieser Parser funktioniert nicht mit folgendem Sting:
aber super klappts mit dem hier:
Das ist mir vorher garnicht aufgefallen, weil ich meistens unter Linux bastle !
Ursprünglich sollte das mal so werden wie bei Text::Textile: Dort kommen Absätze in <p>(...)</p> und ein einzelnes Newline wird durch <br /> ersetzt.
Vorläufig habe ich das jetzt so gelöst:
Fühle mich dabei aber irgendwie dreckig weil ich den \r einfach nur lösche (Zeile 39)
Ich dachte mir, ich mache hier mal weiter, und schon ist die Kacke wieder am dampfen!
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";
Das ist mir vorher garnicht aufgefallen, weil ich meistens unter Linux bastle !
Ursprünglich sollte das mal so werden wie bei Text::Textile: Dort kommen Absätze in <p>(...)</p> und ein einzelnes Newline wird durch <br /> ersetzt.
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)