Help for this page

Select Code to Download


  1. or download this
    my $grammar = <<'__END_OF_GRAMMAR__';
{
...
CHILD_NAME : /:[a-zA-Z][a-zA-Z0-9_]*/ { substr($item[1], 1) }

__END_OF_GRAMMAR__
  2. or download this
    use Data::Dumper;
use Parse::RecDescent ();
...
   or die("Bad text\n");

print Dumper $parse_tree;