in reply to Re^2: PCRE: Repeating Subpattens After Intervening Characters
in thread PCRE: Repeating Subpattens After Intervening Characters

That doesn't capture properly. Fix: 
my $regex = qr/\d\s+foo/;
$some_string =~ /($regex)[^\r\n]*($regex)/;

[download]

Also, your solution doesn't scale (if capturing is desired). He can't say, for example, the following while capturing what $regexp matches:

my $regex = qr/\d\s+foo/;
$some_string =~ /(?:$regex[^\r\n]*)*($regex)/;

[download]

Replies are listed 'Best First'.
Re^4: PCRE: Repeating Subpattens After Intervening Characters
by QM (Parson) on Sep 14, 2005 at 23:36 UTC
    I'm confused -- in what sense doesn't it capture properly? 
      DB<1> $x = qr/(\d\s+foo)/;

  DB<2> $y = 'alpha beta 1 foo gamma delta 2 foo epsilon omega';

  DB<3> @z = $y =~ /$x[^\r\n]*$x/;

  DB<4> x @z
0  '1 foo'
1  '2 foo'
  DB<5>

    [download]
    However, I can vaguely see problems getting the capturing desired, if it isn't conveniently what happens when trying to scale.

    -QM
    --
    Quantum Mechanics: The dreams stuff is made of

[reply]
[d/l]
      hum, my test program must have been buggy. I stand corrected.
[reply]

In Section Seekers of Perl Wisdom