Swear word filter 3

[serpento]

I want to put a swear word filter on my weboard.

I will have a list of swear words I want to block in an array called [tt]@swearWords[/tt] and the message being submitted to the weboard in [tt]$message[/tt].

What is the best way to check to see if [tt]$message[/tt] contains any elements of [tt]@swearWords[/tt]?

 

[Kiehlster]

just do a foreach:

foreach $swear (@swearWords) {
$message =~ s/$swear/-beep-/ig;
}

that will substitute each swear with -beep- and in a case-insensitive manor. Steve Kiehl
webmaster@nanovox.com

http://www.nanovox.com/

 

[serpento]

Thanks loads! Solved my prob.

 

[MikeLacey]

or, in one operation


$swear_word_list 'Apple|IBM|Microsoft|Oracle';

$message =~ s/$swear_word_list/-beep/g; Mike

"Experience is the comb that Nature gives us, after we are bald."

Is that a haiku?
I never could get the hang
of writing those things.

 

[Zas]

Question. How could you not filter the results, but make an error, like "$username contains a swear word. invalid user name." instead of replacing the word with -beep?

 

[serpento]

In answer to Zas:

[tt]if ($username =~ m/$swearWordList/i)
{
die($username." contains a swear word. Invalid user name."
}
else
{
...allow user name...
}[/tt]