Hanken has asked for the wisdom of the Perl Monks concerning the following question:
======= START OF FILE ========== No Name Score Prize 1 Pig 100 red flower 2 Han 80 bread 3 Hen 50 ass kicked ======= END OF FILE ==========
############### START OF PERL ################### #! /usr/local/bin/perl -sw BEGIN { close STDERR and open STDERR, '>./STDERR' or die $!; } use Parse::RecDescent; #============================================ # GRAMMAR DEFINITION HERE #============================================ $grammar = q{ Para: List(s) /\Z/ | { use Data::Dumper 'Dumper'; print "$_->[0]\n" for @{$thisparser->{errors}}; exit; } List: Order Name Score Prize Order: /\d+/ {print "@item\n";} | <error: 1> Name: /\w+/ {print "@item\n";} | <error: Expecting a name!> Score: /\d+/ {print "@item\n";} | <error: 2> Prize: /.*$/ {print "@item\n";} }; #============================================ # MAIN PROGRAM STARTS HERE #============================================ $parse = new Parse::RecDescent ($grammar); while (<DATA>) { chomp; $parse->Para($_); } __DATA__ 1 Pig 100 red flower 2 Han 80 bread 3 Hen 50 ass kicked ############### END OF PERL ###################
======= START OF FILE ========== No Name Score Prize 1 Pig 100 red flower 2 Han 80 bread 3 Hen 50 ass kicked ======= END OF FILE ==========
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: RecDescent Parser problem: how to ignore new lines?
by ikegami (Patriarch) on Jun 05, 2008 at 08:51 UTC | |
by Hanken (Acolyte) on Jun 05, 2008 at 09:57 UTC |