Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
$/ = undef;
...
s/([^#"']*(['][^']*['])|(["][^"]*["]))|([#][^\n]*)/defined $1 ? $1 : "
+"/gse;

print;
  2. or download this
    # comment. 
"this is a quote" # end of line comment. 
...
";
No comments at all.
This is just general stuff. #this is a 'test too." '
  3. or download this
    "this is a quote"
print "this is a multiline quote. # right?
...
No comments at all.
This is just general stuff.