vinoth.ree has asked for the wisdom of the Perl Monks concerning the following question:
Hi Monks,
I need of some suggestion to grep more than one pattern on a file content. I have set of patterns in a array, if any of the pattern matches I need to return that line.
I tried the following code it works fine.
use strict; use warnings; use Data::Dumper; my @PatternList= qw(index: start:); open(FH, "<", "test.txt") or die; my $line; my @Matches; while($line=<FH>) { my $pattern; foreach $pattern (@PatternList) { if ($line =~ /$pattern/) { print "$line"; } } }
Is there any efficient way to do this? because I have more files to match the patterns
I tried the same with grep, as following but I am getting only the pattern, but not the matched lines, Do I missing something here with grep?
my @Matches = grep { /$_/, $line } @arr; #get the pattern not the matc +hed line
All is well
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: More than one pattern match using grep on a file
by choroba (Cardinal) on Apr 04, 2014 at 13:31 UTC | |
by CountZero (Bishop) on Apr 05, 2014 at 09:01 UTC | |
by bigj (Monk) on Apr 04, 2014 at 14:05 UTC | |
by kennethk (Abbot) on Apr 04, 2014 at 16:17 UTC | |
Re: More than one pattern match using grep on a file
by karlgoethebier (Abbot) on Apr 04, 2014 at 16:25 UTC | |
by choroba (Cardinal) on Apr 04, 2014 at 16:27 UTC | |
by karlgoethebier (Abbot) on Apr 04, 2014 at 17:20 UTC |
Back to
Seekers of Perl Wisdom