Smilies suchen und ersetzen - #100991 (Allgemeines zu Perl)

Ronnie

2007-10-17 21:00

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Im Moment stehe ich ein wenig auf der Leitung. Ich möchte in Texten Smilies durch entsprechende Bilder ersetzen, schieße mir aber irgendwie mit dem (nicht vorhandenen Escaping in den Fuss):

Code (perl): (dl )

package Smiley;

    my %smilies = ( 
        # ':)' => 'smile.gif', 
        # ';)' => 'wink.gif', 
        ':rolleyes:' => 'biggrin.gif' 
    );

    sub ascii_to_img {
        my $text = shift;
        for (keys %smilies) { 
            $text =~ s/$_/<img src=\"smile\/$smilies{$_}\" \/>/g;
        };
        return $text;
    }

1;

Ich bekomme folgende Fehlermeldung:

Quote
Unmatched ) in regex; marked by <-- HERE in m/;) <-- HERE

Ist bestimmt trivial zu lösen, aber ich komme im Moment nicht darauf wie das escaping aussehen müsste?!