Ok, wie gesagt habe mom keien lust und zeit das volständig zu machen und zu testen....
diese Zeiel befindet sich in eienr dateier Datein...
$messa =~ s /<EMBED [^]+>[^]*>/<\/EMBED>/ig;
Darunter kannst du als beispiel einfügen:
$messa =~ s/\[ORANGE\](.*)\[\/ORANGE\]/\<span style\=\"color\: orange\;\"\>$0\<\/span\>/ig;
der Grundsyntax davon sit:
$messa =~ Änderen in der nachricht
Ändere:
s/VON/ZU/ig;
s ersetzen
i ignoriere groß klein schreibung
g ersetze alles im text nicht nur eins
ein komplettes tutorial:
http://www.infos24.de/perle/handbuch…xpression.htm#6
\ wird vor zeichen gesetzt um sie als suchausdruck zu makieren und NICHT als operator
\[ORANGE\](.*)\[\/ORANGE\]
heist: suchge nach
[ORANGE]irgent einen kram dazwischen[/ORANGE]
\<span style\=\"color\: orange\;\"\>$0\<\/span\>
ersetze es durch
<span style="color: orange;">irgent einen kram dazwischen</span>
So machen diese beiden zeilen, die dein code benihalte aus
> ein >
< ein <
also das dein html ausgegebn anstat ausgeführt wird..
daher sind diene JS für fett und kursiv müll...
$messa =~ s/>/>/g;
$messa =~ s/</</g;