Regular Expression funzt nicht

[Christian Kruse]

Hallo Namensvetter,

<IMG SRC="../bild.jpg" border="0" />
<IMG SRC="bild.jpg" border="0" />
<IMG SRC="/bild.jpg" border="0" />

das soll umgewandelt werden in:

<IMG SRC="../bild.jpg" border="0" />
<IMG SRC="http://www.test.de/bild.jpg" border="0" />
<IMG SRC="http://www.test.de/bild.jpg" border="0" />

mein RE:

$line =~ s/SRC ?= ?"[^.]/?(.*)[" ]/SRC="http://www.test.de/$1"/gi;

Besser:

$line =~ s~src\s?=\s?("')([^.][^\1])\1~src=$1http://www.test.de/$2$1~ig;

<IMG SRC="http://www.test.de/ild.jpg" border="0" />
warum verschlunkt er den ersten buchstaben beim
letzten bild?

[^.] matcht auch auf ein Zeichen. Auf das b, in
diesem Fall.

Gruesse,
 CK