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