
Your skill will accomplish what the force of many cannot
	PerlMonks

Re: Random Tips on Parse::RecDescent

by davistar (Initiate)

on Feb 02, 2006 at 19:39 UTC ( #527410=note: print w/ replies, xml )

Need Help??

Help for this page

Select Code to Download

Select or download this

xcomment:
        &lt;skip: qr/[ \t]*/&gt; newline(0..) '&lt;!--'
...
            ($text,$return) = main::parse_delimited($text,'&lt;!--','-
++-&gt;');
             $return = ['xcomment',$return];
        }

Select or download this

comment:
        <skip: qr/[ \t]*/> newline(0..) '/*'
...
            ($text,$return) = main::parse_delimited($text,'/*','*/');
             $return = ['comment',$return];
        }

Select or download this

#!/usr/bin/perl -w
use strict;
...
World
*/

Select or download this

Argument "/*" isn't numeric in addition (+) at C:/Perl/site/lib/Parse/
+RecDescent.pm line 2783, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 22, <DATA> line 1.
Use of uninitialized value in concatenation (.) or string at (eval 15)
+[C:/Perl/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.
Use of uninitialized value in substitution (s///) at (eval 15)[C:/Perl
+/site/lib/Parse/RecDescent.pm:2618] line 23, <DATA> line 1.

Node Status^?

node history
Node Type: note [id://527410]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others avoiding work at the Monastery: (13)

As of 2013-05-21 06:16 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

The best material for plates (tableware) is:

Results (428 votes), past polls