Beefy Boxes and Bandwidth Generously Provided by pair Networks vroom
P is for Practical
 
PerlMonks  

Re^4: Generate the perl sequence 1, 11, 111, ....

by moritz (Cardinal)
on Oct 11, 2008 at 12:03 UTC ( #716590=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Generate the perl sequence 1, 11, 111, ....
in thread Generate the perl sequence 1, 11, 111, ....

Use the source, Luke.

regex prefix_circumfix_meta_operator:reduce (--> List_prefix) { $<s> = ( '[' [ | <op=infix> ']' [''|<?>] | <op=infix_prefix_meta_operator> ']' [''|<?>] | <op=infix_circumfix_meta_operator> ']' [''|<?>] | \\<op=infix> ']' [''|<?>] | \\<op=infix_prefix_meta_operator> ']' [''|<?>] | \\<op=infix_circumfix_meta_operator> ']' [''|<?>] ] ) <?before \s | '(' > ...

So [\ is really a handled specially.

Or if you're not inclined to read the source, you can examine the match tree:

$ cat test.t [\~] 1..3 $ perl5.10.0 STD5_dump_match test.t comp_unit: statementlist: statement: EXPR: left: pre: prefix_circumfix_meta_operator: [\ op: ~ ] noun: value: number: integer: 1 infix: .. right: noun: value: number: integer: 3 \n
The output in a terminal is coloured, and much better readable. Basically you see that [\ is matched as a prefix_circumfix_meta_operator with the op: ~


Comment on Re^4: Generate the perl sequence 1, 11, 111, ....
Select or Download Code
Re^5: Generate the perl sequence 1, 11, 111, ....
by TimToady (Parson) on Oct 11, 2008 at 16:32 UTC
    Note however that the main reason those are handled separately is to deal with certain limitations in the autolexer. There's no reason the underlying reductions can't share most of their code, except for the bit that decides whether to return partial results.
Re^5: Generate the perl sequence 1, 11, 111, ....
by blazar (Canon) on Oct 11, 2008 at 18:20 UTC
    Or if you're not inclined to read the source, you can examine the match tree:

    I personally believe that this would indeed better be the case. Actually, I have eventually obtained an account on feather courtesy of Juerd and I wanted to experiment there. But I'm stuck again: what package is the STD5_dump_match script supposed to be part of, and where can I find it to the point of trying it myself? I presume that it's pugs. But then I expected to find it somewhere in ~audreyt/pugs given that the pugs executable itself on that machine is a link into that directory - however that doesn't seem to be the case. Or it may be a matter of permissions; whatever: any idea?

    Sorry for being so dumb: if nothing else I hope this may help some other people out there!

    --
    If you can't understand the incipit, then please check the IPB Campaign.

      Sorry to the OP for going so far off-topic...

      You need to grab a copy of the pugs repository. In that repo you'll find the directory src/perl6/, in which you can find STD.pm and STD5_dump_match.

      (If you take somebody else's checkout of the pugs repository please copy the perl6/ folder to your home directory, because you need write accessing for the lex cache).

      In that dir, type make, then you can use perl STD5_dump_match $file to print out a match tree.

      (You need a perl 5.10.0 in /usr/local/perl to run this, along with a few modules like re::engine::TRE, JSON::XS and Moose. I'll try to install all the dependencies on feather now.)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2014-04-20 17:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (485 votes), past polls