Both preceding answers are excellent; one tells you how to find the answer, the other shows it to you.
I would add that if you are manually processing each element of the array, you may be doing it the hard way:
#!/usr/bin/perl
# testgreparray.pl - Check behavior of grep on arrays
use strict;
my @cmdrsp = (
'This is a test.',
'A booger a day keeps the doctor at bay.',
'Blimey, laddy, it\'s a booger!'
);
if (grep(/booger/, @cmdrsp)) {
print "Found it the easy way\n";
}
my @searsp = grep(/booger/, @cmdrsp);
my $seacnt = @searsp;
if ($seacnt) {
print "Found it the hard way\n";
}
|