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.