Help for this page

Select Code to Download


  1. or download this
    my $comment = '^(\/\*.*\*\/\;)(.*)';
[...]
while ($statement !~ m{$comment}s) { $statement .= <$file> or die "Pre
+mature EOF.\n"; }
print "Found type 1 comment: $1\n";
  2. or download this
    Use of uninitialized value in concatenation (.) or string at ./test.pl
+ line 16, <$file> line 1.
Found type 1 comment: