Solved

Perl script to check a website for profanity.

Posted on 2006-10-23
4
410 Views
Last Modified: 2006-11-18
I have a perl script that checks a list of URLs (pulled from a database) to see if the link is active or dead.

I would like to also like to have the script check the content of the webpage for that URL, for inappropriate content (profanity, words of hate, etc...).

First, is this possible?
Second, how can it be done?

I'm not a PERL programmer, but I understand enough to get by. So the more detail you can provide the better.

Thanks in advance!!
0
Comment
Question by:verbal11
  • 2
4 Comments
 
LVL 84

Expert Comment

by:ozo
Comment Utility
use Regexp::Common qw /profanity/;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
while( <> ){
        chomp;
        my $response = $ua->get($_);
        if( !$response->is_success ){
            warn "$_ ".$response->status_line;
            next;
        }else{
            $_ = $response->content;
            print "inappropriate $1\n" while /($RE{profanity}{contextual})/g;
        }
}
0
 
LVL 2

Author Comment

by:verbal11
Comment Utility
Would you briefly break down for me what your script does?
Specifically:

... while /($RE{profanity}{contextual})/g;


Can I create a text file with a list of "banned" words that could be used in this script? How?
0
 
LVL 84

Accepted Solution

by:
ozo earned 500 total points
Comment Utility
use LWP::UserAgent;
open BANNED,"<bannedwords" or die $!;
my %banned;
chomp,$banned{lc $_}++ while <BANNED>;

my $ua = LWP::UserAgent->new;
while( <> ){
        chomp;
        my $response = $ua->get($_);
        if( !$response->is_success ){
            warn "$_ ".$response->status_line;
            next;
        }else{
              for my $w ( $response->content =~ /(\w+)/g ){
                  print "inappropriate $w in $_\n" if $banned{$w}
              }
        }
}
0
 
LVL 5

Expert Comment

by:rwj04
Comment Utility
i can help you compile the BANNED list.

tell me when you're ready to start.    i'm looking for my George Carlin collection now.

0

Featured Post

Do You Know the 4 Main Threat Actor Types?

Do you know the main threat actor types? Most attackers fall into one of four categories, each with their own favored tactics, techniques, and procedures.

Join & Write a Comment

I've just discovered very important differences between Windows an Unix formats in Perl,at least 5.xx.. MOST IMPORTANT: Use Unix file format while saving Your script. otherwise it will have ^M s or smth likely weird in the EOL, Then DO NOT use m…
I have been pestered over the years to produce and distribute regular data extracts, and often the request have explicitly requested the data be emailed as an Excel attachement; specifically Excel, as it appears: CSV files confuse (no Red or Green h…
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

7 Experts available now in Live!

Get 1:1 Help Now