Help for this page

Select Code to Download


  1. or download this
    my $p = Parse::RecDescent->new( <<'END_GRAMMAR' );

...

undef $/;
print $p->parse(<DATA>);
  2. or download this
    item: /\w+/ "(agg)="           aggregate
    | /\w+/ "(text" /\d+/ ")=" string
    | /\w+/ "(int)="           int