Select Code to Download

text:      struct  {   int   foo   ;   int   bar   ;   }
           ------  -   ---   ---   -   ---   ---   -   -
...
                              struct
           ---------------------------------------------
                              parse

parse : foo1 foo2
      | bar1 bar2

use strict;
use warnings;
...

Parse::RecDescent->Precompile($grammar, 'Grammar')
   or die("Bad grammar\n");

use strict;
use warnings;
...
print("\n");

print(Dumper($matches));

foo1
bar1
...
            'Z'
          ]
        ];