Quick Search:
Oracle PL/SQL Code Library
Find Or Post Oracle Jobs
Oracle Discussion & Chat
 Perl Code: Bad Word Filter Jump to:  
Category: >> Perl Code >> Bad Word Filter Bookmark and Share

<< lastnext >>

Snippet Name: Bad Word Filter

Description: Check a string and filter out prohibited words. Good for forums, guestbooks, etc.

Comment: (none)

Language: PERL
Highlight Mode: PERL
Last Modified: March 05th, 2009

#put the badwords in a string separated by a pipe delimiter
$badwords =QQ~phentermine|poker|keno|blackjack|gammon|ringtones|viagra"~;
@check_fields = ("comments", "name", "email");
#my test field values
#$IN{'city'} = qq~my drug is valium ~;
#$IN{'realname'} = qq~i have some lorazepam ~;
sub check_badwords {
foreach $check_field (@check_fields) {
  $this_field = eval('$'."in{'".$check_field."'}");
    if ($this_field =~ m/($badwords)/gi) {
  #print qq~found $1 in field '$check_field' \n~;
    print qq~Thanks for adding to our Guestbook! \n~;

Oracle Magazine
and Oracle White Papers

SQL University.net courses meet the most demanding needs of the business world for advanced education in a cost-effective manner. SQL University.net courses are available immediately for IT professionals and can be taken without disruption of your workplace schedule or processes.

Compared to traditional travel-based training, SQL University.net saves time and valuable corporate resources, allowing companies to do more with less. That's our mission, and that's what we deliver.

Click here to find out more
Home      :      Code Library      :      Sponsors      :      Privacy      :      Terms of Use      :      Contact Us 22 users online    © 2009 psoug.org

Forgot your password?