Select Code to Download

#!/usr/bin/perl

...

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

#!/usr/bin/perl

...

__DATA__
<*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5,0>

$ perl make_parser.pl && perl test.pl
in:  <*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5,0>
out: <*2>FOO<2,1>,<*3>(SigB<8:0:2>,BAR),<*2>Siga<2:0>,Sigb<8,7,6,5,0>