Perl - Check if any elements in each different array matches a variable - arrays

Question

I have a problem I am hoping someone can help with (greatly simplified for the purposes of explaining what I am trying to do)...
I have three different arrays:
my #array1 = ("DOG","CAT","HAMSTER");
my #array2 = ("DONKEY","FOX","PIG", "HORSE");
my #array3 = ("RHINO","LION","ELEPHANT");
I also have a variable that contains the content from a web page (using WWW::Mechanize):
my $variable = $r->content;
I now want to see if any of the elements in each of the arrays are found in the variable, and if so which array it comes from:
e.g
if ($variable =~ (any of the elements in #array1)) {
print "FOUND IN ARRAY1";
} elsif ($variable =~ (any of the elements in #array2)) {
print "FOUND IN ARRAY2";
} elsif ($variable =~ (any of the elements in #array3)) {
print "FOUND IN ARRAY3";
}
What is the best way to go about doing this using the arrays and iterating through each element in the arrays? Is there a better way this can be done?
your help is much appreciated, thanks

Answer 1

You can make a regex out of the array elements, but you'll most likely want to disable meta characters and make sure you do not get partial matches:
my $rx = join('\b|\b', map quotemeta, #array1);
if ($variable =~ /\b$rx\b/) {
print "matched array 1\n";
}
If you do want to get partial matches, such as FOXY below, simply remove all the \b sequences.
Demonstration:
use strict;
use warnings;
my #array1 = ("DOG","CAT","HAMSTER");
my #array2 = ("DONKEY","FOX","PIG", "HORSE");
my #array3 = ("RHINO","LION","ELEPHANT");
my %checks = (
array1 => join('\b|\b', map quotemeta, #array1),
array2 => join('\b|\b', map quotemeta, #array2),
array3 => join('\b|\b', map quotemeta, #array3),
);
while (<DATA>) {
chomp;
print "The string: '$_'\n";
for my $key (sort keys %checks) {
print "\t";
if (/\b$checks{$key}\b/) {
print "does";
} else {
print "does not";
}
print " match $key\n";
}
}
__DATA__
A DOG ATE MY RHINO
A FOXY HORSEY
Output:
The string: 'A DOG ATE MY RHINO'
does match array1
does not match array2
does match array3
The string: 'A FOXY HORSEY'
does not match array1
does not match array2
does not match array3

Answer 2

my $re1 = join '|', #array1;
say "found in array 1" if $variable =~ /$re1/;
Repeat for each additional array (or use an array of regexes and an array of arrays of terms).

Answer 3

First of all, if When you find yourself adding an integer suffix to variable names, think I should have used an array.
Therefore, first I am going to put the wordsets in an array of arrayrefs. That will help identify where the matched word came from.
Second, I am going to use Regex::PreSuf to make a pattern out of each word list because I always forget the right way to do that.
Third note that using \b in regex patterns can lead to surprising results. So, instead, I am going to split up the content into individual sequences of \w characters.
Fourth, you say "I also have a variable that contains the content from a web page (using WWW::Mechanize)". Do you want to match words in the comments? In title attributes? If you don't, you should parse the HTML document either to extract full plain text or to restrict the match to within a certain element or set of elements.
Then, grep from the list of words in the text those that are in a wordset and map them to the wordset they matched.
#!/usr/bin/env perl
use strict; use warnings;
use Regex::PreSuf qw( presuf );
my #wordsets = (
[ qw( DOG CAT HAMSTER ) ],
[ qw( DONKEY FOX PIG HORSE ) ],
[ qw( RHINO LION ELEPHANT ) ],
);
my #patterns = map {
my $pat = presuf(#$_);
qr/\A($pat)\z/;
} #wordsets;
my $content = q{Lorem ipsum dolor sit amet, consectetur adipisicing elit,
sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim
ad minim veniam, quis ELEPHANT exercitation ullamco laboris nisi ut aliquip
ex ea commodo consequat. Duis aute irure dolor in reprehenderit in HAMSTER
velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
cupidatat non proident, sunt in DONKEY qui officia deserunt mollit anim id
est laborum.};
my #contents = split /\W+/, $content;
use YAML;
print Dump [
map {
my $i = $_;
map +{$_ => $i },
grep { $_ =~ $patterns[$i] } #contents
} 0 .. $#patterns
];
Here, grep { $_ =~ $patterns[$i] } #contents extracts the words from #contents which are in the given wordset. Then, map +{$_ => $i } maps those words to the wordset from which they came. The outer map just loops over each wordset pattern.
Output:
---
- HAMSTER: 0
- DONKEY: 1
- ELEPHANT: 2
That is, you get a list of hashrefs where the key in each hashref is the word that was found and the value is the wordset that matched.

Answer 4

I assume $variable is not an array, in which case use a foreach statement.
foreach my $item (#array1) {
if ($item eq $variable) {
print "FOUND IN ARRAY1";
}
}
and repeat the above for each array, i.e. array2, array3...

Answer 5

EDIT: I think you could use perl's map function, something like this:
#a1matches = map { $variable =~ /$_/ ? $_ : (); } #array1;
print "FOUND IN ARRAY1\n" if $#a1matches >= 0;
#a2matches = map { $variable =~ /$_/ ? $_ : (); } #array2;
print "FOUND IN ARRAY2\n" if $#a2matches >= 0;
#a3matches = map { $variable =~ /$_/ ? $_ : (); } #array3;
print "FOUND IN ARRAY3\n" if $#a3matches >= 0;
A fun side effect is that #a1matches contain the elements of #array1 that were in $variable.

Answer 6

Regexp::Assemble may be helpful if you like to use a module. It allows to assemble strings of regular expressions into one regular expression matching all the individual regular expressions.