Here is a piece of code I picked up from
http://perldoc.perl.org/perlfaq6.html#I'm-having-trouble-matching-over-more-than-one-line.
--What's-wrong%3f-regex%2c-multiline-regexp%2c-multiline-regular-expression%2c-multiline
and modified it to suit my requirements.
-
#!/usr/bin/perl -w
-
undef $/;
-
while ( <> ) {
-
while ( /(Error)(.*?)(\(ERR-[0-9]+\))/sgm ) {
-
print "$1\n";
-
}
-
}
-
and this works. But one of my problems is that I do not have this pattern only. I have multiple patterns I need to search for. I have a file full of patterns that need to be looked at and pass it on to the parser. However, when I use the variable that contains the pattern, my parser does not work. I am posting the corresponding code below.
-
#!/usr/bin/perl -w
-
$file = $ARGV[0];
-
$pattern_file = $ARGV[1];
-
open (PATFILE, $pattern_file) or die "Error: $file $!\n";
-
@errPatsFile = <PATFILE>;
-
chomp(@errPatsFile);
-
close PATFILE;
-
foreach $line (@errPatsFile) {
-
print "$line is line\n";
-
if ($line =~ /^pattern\s+=\s+(.+?)\s*$/) {
-
push (@errpats, $1);
-
-
}
-
}
-
undef $/;
-
open (FILE, "$file") or die "Error: $!\n";
-
while ( <FILE> ) {
-
foreach $errpat (@errpats) {
-
while ( $_ =~ $errpat ) {
-
print "ONE -- $1 || TWO -- $2 || THREE -- $3\n";
-
}
-
}
-
}
-
-
My pattern file that I pass in as ARGV[1] is as follows,
pattern = /(Error)(.*?)(\(ERR-[0-9]+\))/sgm
pattern = /(Warning)(.*?)(\(ERR-[0-9]+\))/sgm
Essentially the part
foreach $errpat (@errpats) { while ($_ =~ $errpat ) { etc does not work. I also tried
while(eval "\$_ =~ $errpat" ) { which also does not work
}
Can I get some help on making this pattern match work using the variable
$errpat 
