Parsing a Variable 1

[nochoice]

Hey Everybody,

I have my users enter some information into a form and submit it.

Then I do the standard checking of the form to make sure all entries were filled in correctly, if they were, the information is posted.

What I'm worried about is swearing and other such bad language. I would like to check through the variable for these things. For example,

the user enters their name where:

$name = "f......ing Jerk"

instead of just $name=~ s/f.....ing//;

I would like to give some feedback to the user for swearing so I want to detect the offensive language.

Any suggestions?

I'm basically lost here.

Thanks in advance,
Mike

 

[iaresean]

Well I think you would have to create an array containing all the words that you would consider "offensive". Then you would have do a loop and cross reference the array to the field to see if there are any matches, if so output the appropriate message, if not, continue as normal.

I think that would be your basic logic of your program, which isn't hard at all. The only problem is writting down all the different "offensive" words out there. Maybe you could do a search for a swearword database or something.

Best of luck.

If you have an problem with the coding, just give us a shout.

Sean.

 

[icrf]

I've used Regexp::Common:rofanity before:

http://search.cpan.org/src/ABIGAIL/Regexp-Common-2.113/lib/Regexp/Common/profanity.pm

Or a nicer wrapped version, like Regexp:rofanity::US:

http://search.cpan.org/~tbone/Regexp-Common-profanity_us-2.2/lib/Regexp/Profanity/US.pm

________________________________________
Andrew - Perl Monkey

 

[nochoice]

Ok, both look like good options.

I am attempting to implement Regexp::Common:rofanity but would also like to try the array deal, I see it as being a little more flexible - although tedious.

If I had a variable $name and it's value was "MikPPPe JohnPPPston":

$name = "MikPPPe JohnPPPston";

how would I search the variable to find the PPP and return true if it was found. I'm looking for an actual code snippet if possible.

Thanks,
Michael

 

[iaresean]

I think this might do:

if ($string =~ m/StringOrRegExpr/) {
print 'match';
} else {
print 'no match';
}

Then you could replace StringOrRegExpr with $array[12] for eg.

For your prog you could do this:

$len = scalar(@arrayname); #Get length of array
$match = "NO";

for(int i = 0; i < $len; i++){
if ($string =~ m/$arrayname/) {
$match = &quot;YES&quot;;
}
}

if($match eq &quot;YES&quot{
print &quot;You cannot enter a swear word...etc&quot;;
}
else{
continue.
}

Hope this helps out in some way.


Sean.

 

[iaresean]

woops, it did some editing up there, use this instead:

@swearwords=("f**k","s**t");

$len = scalar(@swearwords);  #Get length of array
$match = "NO";

for(int p = 0; p < $len; p++){
     if ($string =~ m/$arrayname[p]/) {
         $match = &quot;YES&quot;;
     }
}

if($match eq &quot;YES&quot;){
     print &quot;You cannot enter a swear word...etc&quot;;
}
else{
     continue.
}

Sean.

 

[iaresean]

Damn, another error!

$arrayname[p] in the if statement must be $swearwords[p]


Sean.

 

[nochoice]

Awesome!

Thanks Sean.