Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
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?
[Discipulus]: choroba less than perl -le ' $==1,(1 x $_)=~/(^)(1|11\1 )*(?{$=++})^/, print $= for 0..10'?? congrats
[Discipulus]: marto i had in mind something for stupid peoples with smart phones; a free app (this is the the non perl part..) and some hardware to sell in big cities
[marto]: use libPD on Android/IOS, route to something listening on the pi :P
[marto]: libpd
[marto]: OSC
[Discipulus]: choroba i'm just behind you at 100 points

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (7)
As of 2017-10-17 10:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My fridge is mostly full of:

















    Results (225 votes). Check out past polls.

    Notices?