Help for this page

Select Code to Download


  1. or download this
    /(?:[^"]+|"")*/
  2. or download this
    (around)
(aroun)(d)
(arou)(nd)
(arou)(n)(d)
...
  3. or download this
    (around)
  4. or download this
    my $s = q("You spin me ""around"" and ""around"", ""round"", like a re
+cord, ""round"" and ""around"".);
use Benchmark 'cmpthese';
...
  cut => sub { return  $s =~ /"(?>[^"]+|"")*"(?!")/ },
  straight => sub { return  $s =~ /"(?:[^"]+|"")*"(?!")/ } 
});
  5. or download this
                Rate straight      cut
straight  7579/s       --     -89%
cut      69921/s     823%       --