Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my @p = ($mm=~m/(\"[A-Za-z0-9_\-,.+]+\")/g); 
print map {qq($_\n)} @p;
1;
  2. or download this
    "000.E+3"
","
...
","
","
","
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
my @p = ($mm=~m/(\"(?:[A-Za-z0-9_\-,.+]+)?\")/g); 
print map {qq($_\n)} @p;
1;
  4. or download this
    "000.E+3"
""
...
"-1"
"P"
"FALSE"