Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Wanted: Perl Regex Pretty Printer (almost, rxrx, rxplain)

by Anonymous Monk
on Aug 13, 2013 at 07:28 UTC ( #1049222=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    '1234'
    /(?<P>(?&V))(?<Q>.)(?(DEFINE)(?<V>...))/
    ...
    &#8592;[0m&#8592;[37;40m    )               &#8592;[0m  &#8592;[36;40m
    +    The end of definition block&#8592;[0m
    &#8592;[34;40;4m
    &#8592;[0m
    
  2. or download this
    $_=1234;
    m{
      (?<P>(?&V))  # match <V> and save to $+{P} 
    ...
        (?<V> ...) # <V> aka (?&V) is three chars
      )
    }xm;
    
  3. or download this
    m{
      (?<P>           #    The start of a named capturing block (also $1)
    
    ...
    
      )               #    The end of definition block
    }x
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1049222]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2022-06-30 07:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (97 votes). Check out past polls.

    Notices?