---

Jeg vil gerne (i perl) matche alle tegn, bortset fra et bestemt ord

while ($content =~ m'<h2>(.*)</h2>'g) {$ord=$1; gør_noget_med($ord)}

men ikke hvis ord er = "foo"

Kan det pakkes ind i regexp'en, eller må jeg nøjes med en ekstra if-sætning?

Leif

---

"Leif Neland" <leif@neland.dk> writes:

> Jeg vil gerne (i perl) matche alle tegn, bortset fra et bestemt ord
>
> while ($content =~ m'<h2>(.*)</h2>'g) {$ord=$1; gør_noget_med($ord)}
>
> men ikke hvis ord er = "foo"
>
> Kan det pakkes ind i regexp'en, eller må jeg nøjes med en ekstra if-sætning?

Jeg vil ikek afvise at det kan gøres med noget negative look-around,
men jeg tro hverken at det bliver pænt eller effektivt. Jeg tror i
hvert fald det bliver langt mere vedligeholdelsesegnet ved bare at
lave en 'next if $ord eq "foo"' som det første i din løkke.

//Makholm

---

Leif Neland wrote:

> while ($content =~ m'<h2>(.*)</h2>'g) {$ord=$1; gør_noget_med($ord)}

Jeg er enig med Peter, men måske

while ($content =~ m'<h2>(?!ord</h2>)(.*)</h2>'g) {
   $ord = $1;
   gør_noget_med($ord)
}

ville virke?

Knus
Regnar