: open(BW,$bw) || die &dead("Can't find Bad word list", $!);
: @indata = ;
: close(BW);
:
: $tmp = join ("|", @indata);
I think you need to chomp the lines you read from $bw. Otherwise
they'll still have newlines in them. (hint: print out $tmp to see what
the regex will look like.)
Try this
Hello,
What I want to is to load a file "$bw"
and then have my regrex find if any of the bad words are in any of the form fields.
The code I have here does not work.
# $in{$i} are the form fields, that need to be checked for
# any of the bad words, contained in the bad_words.txt
$bw ='../cla
