Re: [FWP] japhy had a silly idea...

[Jeff Pinyan <jeffp@crusoe.net>]

On May 25, Aaron J Mackey said:

>>   ^.*(??{$&eq'^.*(??{'.substr($&,7,46).'})\z'?'':'(?!)'})\z
>
>Not being a wizard of ??, I clearly see how this regex matches itself
>nicely ... but I don't understand why any old string with 46 characters
>between the beginning and end stuff shouldn't work:

Yeah, I know.  I was substr()ing $&, when I meant to be substr()ing $re,
the variable holding that regex.

  $re = q{^.*(??{$&ne'^.*(??{'.substr($re,7,-4).'})\z'&&'(?!)'})\z};

That works.

-- 
Jeff "japhy" Pinyan      japhy@pobox.com      http://www.pobox.com/~japhy/
Are you a Monk?  http://www.perlmonks.com/     http://forums.perlguru.com/
Perl Programmer at RiskMetrics Group, Inc.     http://www.riskmetrics.com/
Acacia Fraternity, Rensselaer Chapter.         Brother #734
** I need a publisher for my book "Learning Perl's Regular Expressions" **


==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe