in reply to making regex case insensitive
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"; }
|
---|
In Section
Seekers of Perl Wisdom