Beat: Bad-Wortfilter

Beitrag lesen

Hallo!

Kurze frage - wie bau ich einen sicheren Bad-Wortfilter?
Ich dachte mit einem Regulären Ausdruck aber es will einfach nicht klappen, denn wenn ich
$bla =~ m/[^Hallo|Ciao]/;
Eigentlich sollte jetzt das Wort Hallo und Ciao verboten sein

Ciao ist nicht verboten.
Verboten sind worte, die beginnen mit
hc Hi Ha Ho aC ai aa ao ....

Wie stellt man sowas am besten an? Bräuchte nur nen hinweis ;)

Studiere die Perl Doku bezüglich Reguläre Expressions.

mfg Beat

--
Woran ich arbeite:
X-Torah
   <°)))o><                      ><o(((°>o