http://www.perlmonks.org?node_id=699300


in reply to Re^6: Regex problems using '|'
in thread Regex problems using '|'

i.e. where are my expectations wrong?

You seem to assume that, for an alternation $a|$b, the regex engine does the following:

  1. It searches for alternative $a in the string</lii>
  2. If it doesn't find a match, it tries alternative $b
However, that's not the case. It does this:
  1. anchor pattern at start of string
  2. try to match alternative $a
  3. if it fails, try to match alternative $b
  4. if there's still no match, anchor pattern at the second character in the string, and start again from No. 2

Perhaps you want something along this line:

m/(?s:.*)Remediation Report\n\n(.+?)\n|^(.+?)\n/;

That searches for the Remediation Report\n\n(.+?)\n part of the regex anywhere in your string, and only if that fails it tries the second regex.

The record in question is one large string with newlines inside it

In the example script I posted, yes.

I updated the example data above to explain how each record is broken up better. I think the Data::Dumper output was a bit confusing. There is only one vulnerability name in each record, so /g shouldn't apply (I believe).

In scalar context the /g modifier doesn't mean "match as often as you can", but rather "start your match at pos $str, and set pos $str after the match". That means you can say stuff like this:

while ($str =~ m/($regex)/){ print $1, "\n"; }

But it's not the only application. You can use it to preserve the pos $str value, and then apply a different regex against it.

Replies are listed 'Best First'.
Re^8: Regex problems using '|'
by romandas (Pilgrim) on Jul 22, 2008 at 13:17 UTC
    Yes, exactly. JavaFan explained it pretty well, so I finally understood what you were trying to say. :) Thanks for your help and patience.