#!/usr/bin/env perl
use strict;
use warnings;
use Parse::RecDescent;
use Data::Dumper;
my $grammar = <<'END_GRAMMAR';
file: 'foo' 'bar' { [ @item ] }
END_GRAMMAR
my $data = <<'END_DATA';
#skdjslkdjsakdjadjlksa
foobar
END_DATA
our $parse = new Parse::RecDescent($grammar)
|| die "Couldn't generate parser from grammar: $!";
my $parse_tree = $parse->file($data);
print Dumper $parse_tree;
####
$VAR1 = undef;
##
##
#!/usr/bin/env perl
use strict;
use warnings;
use Parse::RecDescent;
use Data::Dumper;
my $grammar = <<'END_GRAMMAR';
file: /#\w+/ 'foo' 'bar' { [ @item ] }
END_GRAMMAR
my $data = <<'END_DATA';
#skdjslkdjsakdjadjlksa
foobar
END_DATA
our $parse = new Parse::RecDescent($grammar)
|| die "Couldn't generate parser from grammar: $!";
my $parse_tree = $parse->file($data);
print Dumper $parse_tree;
##
##
$VAR1 = [
'file',
'#skdjslkdjsakdjadjlksa',
'foo',
'bar'
];