Zeichenkette von "Bad-Words" bereinigen no Case-Sensitive

[Sven Rautenberg]

Moin!

foreach $item (@badwords)
{
$DATA{'msg'}=~s/$item//g
}

In @badwords stehen die Wörter, die aus $DATA{'msg'} gelöscht werden sollen. Leider ist diese Funktion Case-Sensitive, so dass zwar das Wort "sex" gelöscht wird, das Wort "Sex" aber nicht, zum Beispiel.

Ich kann mir so garnicht vorstellen, daß du mit dieser Funktion das Wort "Busexpress" zu "Bupress" verkürzen willst. Oder "Sextant" zu "tant". ;)

Und wenns ganz dumm kommt, dann kürzt du sogar doppelt raus, weil das erste vermeintliche Badword rausfliegt, und dadurch an der Schnittstelle ein zweites Badword entsteht.

- Sven Rautenberg