Help for this page
xcomment: <skip: qr/[ \t]*/> newline(0..) '<!--' ... ($text,$return) = main::parse_delimited($text,'<!--','- ++->'); $return = ['xcomment',$return]; }
comment: <skip: qr/[ \t]*/> newline(0..) '/*' ... ($text,$return) = main::parse_delimited($text,'/*','*/'); $return = ['comment',$return]; }
#!/usr/bin/perl -w use strict; ... World */
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.
www.com | www.net | www.org
No recent polls found