How do I find all regex matches in a string? 1

[cpjust]

Hi,
I'm not a Perl programmer, and I've done almost no Perl before, but I need to edit script at work.

I have a string that looks like this:

Blah, blah...

Some SQL statement.
DB20000I some info.

Some SQL statement.
DB21034E error text.

...

and I need to find only the errors and parse them out.

I believe this is the right regex string to search for the whole block of text (separated by blank lines) containing the error code:

m/\n\n.*\nDB\d\d\d\d\dE.*\n\n/

but if I'm not mistaken, this will only find the first match. How would I find all the matches and dump them all into a new string that I can print out?

 

[KevinADC]

You want to match two records like this?

Some SQL statement.
DB21034E error text.



------------------------------------------
- Kevin, perl coder unexceptional!

 

[cpjust]

Yes, everything between the blank line before and after. So these 3 lines should also match:

Some SQL statement
DB21034E Error text.
Some more crap...

 

[KevinADC]

maybe:

open (IN, 'yourfile') or die "$!";
my @lines = do {local $/ = "\n\n"; <IN>};
close IN;
foreach my $record (@lines) {
   if ($record =~ /^DB\d\d\d\d\dE/m) {
      print $record;
   }
}
__DATA__
Some SQL statement.
DB20000I some info.

Some SQL statement.
DB21034E error text.
blah blah

Some SQL statement.
DB20000I some info.
foo foo foo

Some SQL statement.
DB21034E error text.

Some SQL statement.
DB20000IE some info.
blah blah blah

Some SQL statement.
DB21034E error text.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[cpjust]

Thanks, but I think I got it working with this:

	my $sqlErrors;
	my @db2Blocks = split /\n\n/, $returnVal;
	while ( my $db2Block = pop @db2Blocks )
	{
		if ( $db2Block =~ m/DB\d\d\d\d\dE/ )
		{
			$sqlErrors .= $db2Block . "\n\n";
		}
	}

 

[KevinADC]

Is there a reason you are using pop() to parse the array backwards? If you wanted to parse the array backwards this should be faster:

    my $sqlErrors;
    my @db2Blocks = split /\n\n/, $returnVal;
    foreach my $db2Block ( reverse @db2Blocks )
    {
        if ( $db2Block =~ m/^DB\d\d\d\d\dE/ )
        {
            $sqlErrors .= $db2Block . "\n\n";
        }
    }

Using a while() loop to process an array is slower than just looping through the array.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[cpjust]

Wait a sec... are you saying pop() starts at the end of the array and moves toward the beginning? Doh!
I'll have to review the results of my previous test tomorrow.

 

[sycoogtit]

If you're using Class:BI then you just override the _croak function.

http://search.cpan.org/~tmtm/Class-DBI-v3.0.17/lib/Class/DBI.pm#EXCEPTIONS

--

http://MyUniversityTutor.com

 

[cpjust]

If you're using Class:BI then you just override the _croak function.

http://search.cpan.org/~tmtm/Class-DBI-v3.0.17/lib/Class/DBI.pm#EXCEPTIONS

Was this posted in the wrong thread? I don't see what that has to do with this discussion?

 

[sycoogtit]

Have you looked at the module? You're using SQL, and Class:BI is a module that deals with SQL. I was just saying that if you're using Class:BI, then you don't have to issue a statement and look for errors. You can just override the _croak function and you'll get all the errors. If you're not using Class:BI, then disregard the suggestion.

--

http://MyUniversityTutor.com