Help for this page

Select Code to Download


  1. or download this
    $rrstring =~ s/^((?:[^\n";]+|"(?:[^\n"\\]|\\[^\n])*")*);[^\n]*$/$1/mg;
                        ^
                        was missing
  2. or download this
    # Here's the simplest case where it fails:
# $expect = "\"Joe\"";
...
Input:  "John \"The Wiz\" Doe; programmer" ; "comment"
Expect: "John \"The Wiz\" Doe; programmer"
Get:    "John \"The Wiz\" Doe; programmer" ; "comment"