#!/usr/bin/perl

print "Content-type: text/html \n\n";

my $RULES = qq|job
help
tools|;

use LWP::Simple;
my $html = get("http://www.google.com");
$html =~ s/\n//g;

# do counting of rules...needed later.
my @c_rules = split("\n",$RULES);
my $c_rules_cnt = $#c_rules; # get the number of entries..

# just so we can see the entries of the array..
print join(",",@c_rules) . " Words...<BR>";

# see if we can find *ALL* the words...
my $count = 0;
foreach (@c_rules) {
chomp;
print "Word: $_ <BR>";
if ($html =~ /$_/sig) {
$count++;
print "<font color=blue>Match good word.. $_ </font><BR>";
}
} # end 'foreach' for @c_rules

# if we didn't get *ALL* the rules, then we need to skip....

if ($count < $c_rules_cnt) { print "Bad...<BR>"; } else { print "Good..<BR>"; }

if ($html =~ /tools/i) { print "yay!"; } else { print "damn"; }

my @RULES = qw|job help tools|;

# do counting of rules...needed later.
my @c_rules = @RULES;
my $c_rules_cnt = @c_rules;

#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);

print "Content-type: text/html \n\n";

my @RULES = qw(job help tools);

use LWP::Simple;
my $html = get("http://www.google.com");
$html =~ s/\n//g;

if ($html =~ /tools/sig) { print "yay!"; } else { print "damn"; }

# do counting of rules...needed later.
my $c_rules_cnt = $#RULES; # get the number of entries..

# now we have the count, lets do some checkingto see if we have all
# the required words...if not, then we need to skip this URL, and pass
# back false value, so we can report that it wasn't added...
my $count = 0;
foreach (@RULES) {
$_ =~ s/\t\n//g;
print "Word: $_ <BR>";
if ($html =~ /$_/sig) {
$count++;
print "<font color=blue>Match good word.. $_ </font><BR>";
}
} # end 'foreach' for @c_rules

# if we didn't get *ALL* the rules, then we need to skip this one...



if ($count == $c_rules_cnt) { print "<BR>Bad...<BR>"; } else { print "<BR>Good..<BR>"; }