Help for this page

Select Code to Download


  1. or download this
    $string = "
blah
...
$string =~ s[(?:\r?\n\s*)+(\@QUERY)][\n$1]g;

print "string2: $string\n\n";'
  2. or download this
    string1:
blah
...
more data
more data
... etc ...
  3. or download this
    Using perl 5.6.1 unless otherwise noted.
Apache 1.3.27 unless otherwise noted.
Redhat 7.1 unless otherwise noted.