Help for this page

Select Code to Download


  1. or download this
    my $testData = <<'_EOGTESTA_';
RECORD
...
F ptc_term_mcz_change_direction 
.
_EOGTESTA_
  2. or download this
    #!/usr/bin/perl -w

...

my $parser = Parse::RecDescent->new($grammar);
$parser->startOfRecord($testData)  or die "Bad input!\n";
  3. or download this
    Variable "$errorprefix" is not available at C:/cpanfly/var/megalib/Par
+se/RecDescent.pm line 2906.
Use of uninitialized value $errorprefix in formline at C:/cpanfly/var/
+megalib/Parse/RecDescent.pm line 2850.