Re^2: Matching terminals with Parse::RecDescent

/foo$/ works for the example script. "foo" /\Z/ didn't match anything (though /foo\Z/ did). All fall down if I test with this grammar:

line: FOO BAR
FOO: /foo\Z/
BAR: /bar\Z/
[download]

(and use $p->line instead of $p->foo). I probably should have been more specific, but I'm looking for a more generalised solution to this, or at least some understanding of where my expectations are wrong.

Comment on Re^2: Matching terminals with Parse::RecDescent Download Code

Replies are listed 'Best First'.
Re^3: Matching terminals with Parse::RecDescent by ikegami (Patriarch) on Dec 12, 2006 at 06:36 UTC
or at least some understanding of where my expectations are wrong. Your grammar expects to match 0 or more whitespace characters (see `<skip>`), followed by "foo", followed by the end of the string to parse, 0 or more whitespace characters, followed by "bar", followed by the end of the string to parse.	[reply] [d/l]
Re^3: Matching terminals with Parse::RecDescent by GrandFather (Saint) on Dec 12, 2006 at 06:25 UTC
With the grammar: `line: FOO BAR /$/ FOO: "foo" BAR: "bar"` [download] and the invocation changed line to: `if (defined (my $ret = $p->line($test))) {` [download] I get: `no match: 'foo' no match: 'foo ' match: 'foo bar' -> '' no match: 'football' no match: 'fog' no match: 'barfoo' no match: 'bar foo'` [download] Is that not what you expect? DWIM is Perl's answer to Gödel	[reply] [d/l] [select]