Re: multiple occurences when using Parse::RecDescent

If I understand the problem correctly, a grammar along the following lines should do what you want:

my $grammar = q {
  startrule: statement (endline statement)(s?)
  statement: print open text end
  print: "print"
  open: "'"
  text: /([^']*)/
  end: "'"
  endline: /(\n|\r)+/
};
[download]

It tells the parser that there should be one or more statements, separated by endlines.

Hope this helps, -gjb-

Update: graff is correct, the above grammar unfortunately doesn't work on closer inspection, his is the solution I came up with after fixing mine with the exception of /^\Z/ as a terminator.

Comment on Re: multiple occurences when using Parse::RecDescent Select or Download Code

Replies are listed 'Best First'.

Re^2: multiple occurences when using Parse::RecDescent
by graff (Chancellor) on Mar 30, 2005 at 09:45 UTC

  startrule: statement(s)
  statement: print open text end
  print: /\s*print\s*/
  open: "'"
  text: /([^']*)/ {print " $item[1] "}
  end: "'"
[download]

UPDATE: The OP said: i need it so that it will allow this several times down the textarea and spot an error in any of the occurences.

To make it work that way, the startrule should be:

  startrule: statement(s) /$/
[download]

[reply]
[d/l]
[select]


The stupid question is the question not asked
	PerlMonks