Perl: Het 's///' commando

Tja... hoe werkt dit goed met variabelen?

Ik heb een variabele met de tekst ':)' een smiley dus, en die wil ik vervangen door bijvoorbeeld 'http://forum.scholieren.com/images/smilies/smile.gif'

Fijn... dat vervangen lukt, maar hij doet wat fout.
In de tekst:

'Jaa: Hij doet het :)', staan 3 smiley's. 2 voor de ':' en een voor de ')'.

Hij gaat dus elk karakter af in de PATTERN, maar dit wil ik niet. Hoe krijg ik dit goed?

Mijn code:

$cKarakterreeks = ":)";
$cPlaatje = "http://forum.scholieren.com/images/smilies/smile.gif";
$cTekst =~ s/[$cKarakterreeks]/<IMG SRC=\"$cPlaatje\">/gs;

PS: De karakterreeks en plaatje komen natuurlijk uit een database...

[Chimera]

Ik neem dat dit regexpes zijn? Als je characters tussen blokhaken zet is het een range. [] matched dus elke occurence van : en ).

Zo doe je dat:

$cKarakterreeks = ":-??\\)";
$cPlaatje = "http://forum.scholieren.com/images/smilies/smile.gif";
$cTekst =~ s/$cKarakterreeks/<IMG SRC=\"$cPlaatje\">/gs;

Die ?? achter het streepje betekent dat het ook een smiley met een streepje als neus mag zijn. En dat sluithaakje sluiten heeft een speciale betekenis in een regexp, dus er moet een backslash voor. En dan nog eentje omdat je die backslash letterlijk in die var wilt hebben.

Chip Zero schreef:
En dat sluithaakje sluiten heeft een speciale betekenis in een regexp, dus er moet een backslash voor

*bonkt hoofd 3 keer tegen muur*

Natuuuuurlijk...