Monster-Regex: negativer look behind (Allgemeines zu Perl)

[thread]10474[/thread]

Monster-Regex: negativer look behind

Leser: 1

Froschpopo

2007-09-26 21:56

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

also folgendes:

Code: (dl )

$string = "Dies ist ein [HAUS]\n\n\nUnd ich wohne darin";

nun brauche ich einen Regex, der alle \n durch ersetzt, AUßER: der \n steht direkt hinter ]
Außerdem sollen mehrere aufeinanderfolgende \n durch ein einzelnes ersetzt werden.

Also quasi sowas:

Code: (dl )

$string =~ s/(!\])\n{2,}/<br>/gs;

Leider funkt das ding vorn und hinten nicht.

topeg

2007-09-26 22:19

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Die Schreibweise war nicht ganz richtig:

Code (perl): (dl )

$string =~ s/(?!\])\n+/<br>/gs;

Froschpopo

2007-09-26 22:26

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Aber das stimmt ja nicht,

Code: (dl )

#!/usr/bin/perl

use strict;

my $body = "Dies ist mein [HAUS]\n\n\nUnd ich wohne darin";

$body =~ s/(?!\])\n+/<br>/gs;

print $body;

Ergebnis:

Code: (dl )

Dies ist mein [HAUS]<br>Und ich wohne darin

Es ist wider Willens ein direkt hinter ]
Der Zeilenumbruch soll überall durch ersetzt werden, außer hinter ]
Ansonsten soll für alle \n gelten: Niemals zwei hintereinander.

topeg

2007-09-26 22:39

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Erst lesen dann schreiben. Habe Lookahead und Lookbehind vertauscht. :-/

Code (perl): (dl )

$body =~ s/(?<!\])\n+/<br>/gs;

Froschpopo

2007-09-26 22:47

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Jetzt macht er aber folgendes:

Code: (dl )

1
2

Dies ist mein [HAUS]
<br>Und ich wohne <br>darin

Jetzt ersetzter den \n direkt hinter ] zwar nicht, aber dafür die darauf folgenden.

Aber ich glaube es liegt an mir; ich habe es nicht gut formuliert: Auf ] darf kein Zeilenumbruch folgen, auch nicht als übernächstes Zeichen.

Zur Erklärung:
[HAUS] wird später im HTML-Quelltext durch ein Bild (<img src...) ersetzt, woraufhin kein Zeilenumbruch erfolgen darf.
Um Ordnung im Quelltext zu gewährleisten will ich mir aber dort \n's erlauben.

topeg

2007-09-26 23:05

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

allso so:

Code (perl): (dl )

$body =~ s/(\]?)(\n+)/$1?$1.$2:"<br>"/ges;

Machst es einem auch nicht leicht. ;-)

Hagen

2007-09-28 13:28

User since
2007-09-06
233 Artikel
BenutzerIn
[default_avatar]

Hallo topeg,

also den ersten Teil der regex habe ich noch verstand. Könntest du mir bitte mal den zweiten Teil erklären (/$1?$1.$2:" "/). Ist das eine if-Bedingung?

Gruß
Hagen

nepos

2007-09-28 15:09

User since
2005-08-17
1420 Artikel
BenutzerIn

Der ternäre Operator ? :. Falls in $1 was steht, wird "$1.$2" eingesetzt, ansonsten einfach " ". Dabei ist das e als Abschluss wichtig, da nur dadurch die rechte Seite der Ersetzung als Ausdruck evaluiert wird.

View all threads created 2007-09-26 21:56.