Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^5: Parsing and translating Perl Regexes ( PPIx::Regexp::xplain ppixregexplain.pl _desc.pl )

by Anonymous Monk
on Dec 31, 2014 at 04:54 UTC ( #1111808=note: print w/replies, xml ) Need Help??


in reply to Re^4: Parsing and translating Perl Regexes ( PPIx::Regexp::xplain ppixregexplain.pl _desc.pl )
in thread Parsing and translating Perl Regexes

bah, can't fork/update the anonymous gist anymore, so here is a patch to explain /(?^:foo$)/m is the same as /(?-xism:foo$)/m

--- ppixregexplain.pl 2014-02-04 23:58:11.265625000 -0800 +++ ppixregexplain-dodgy-bug.pl 2014-12-30 20:54:31.250000000 -0800 @@ -1159,6 +1159,10 @@ #~ delete @mods{@offers} ; ## OFFERS TRUMP ONNERS $mods{$_}=0 for @offers ; ## OFFERS TRUMP ONNERS + if( $con eq '^' ){ + $mods{$_}=0 for qw/ i m s x /; ## d-imsx http://perldoc. +perl.org/perlre.html#%28?^alupimsx%29 + } + @mods = ( @onners, @offers ); if( $notroot ){
  • Comment on Re^5: Parsing and translating Perl Regexes ( PPIx::Regexp::xplain ppixregexplain.pl _desc.pl )
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1111808]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (2)
As of 2017-12-15 05:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (417 votes). Check out past polls.

    Notices?