Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use Benchmark;
...
        '^>'    => sub { $email =~ m/<([^>]+)>/    }
    }
);

Select or download this

Benchmark: timing 100000000 iterations of .*, ^>...
        .*: 1437 wallclock secs (1432.85 usr +  0.06 sys = 1432.91 CPU
+) @ 69788.05/s (n=100000000)
...
       Rate   .*   ^>
.*  69788/s   -- -55%
^> 154969/s 122%   --