Help for this page

Select Code to Download


  1. or download this
    my $parser = Parse::RecDescent->new($grammar) 
        or die "Bad grammar!\n";
    
    defined $parser->startrule($text) 
        or die "Can't match text";
    
  2. or download this
        startrule:  brace_block(s)    #adjustment
    
    ...
    
        lbrace:  / [{] /xms
        rbrace: / [}] /xms
    
  3. or download this
        startrule: <rulevar: $rbraces>
    
    ...
                   
    
        lbrace: / [{] /xms
    
  4. or download this
    Can't use string ("{{") as an ARRAY ref while "strict refs" in use at 
    +(eval 14) line 377