sub use_str
{
    my $re = qr/^1\d2\d3\d4\d5\d6\d7\d8\d900$/;

    for (my $n = 1_010_101_030; $n <= 1_389_026_623; )
    {
        # stringify the qr regex
        my $str = "$re";
        my $s  = $n * $n;
        return   $n if $s =~ /$str/; # recompiled each time I guess?
           $n += 40;
           $s  = $n * $n;
        return   $n if $s =~ /$str/;
           $n += 60;
    }

    die;
}
##</code><code>##

Benchmark: timing 5 iterations of use_qr, use_re, use_str...
    use_qr: 33 wallclock secs (33.62 usr +  0.00 sys = 33.62 CPU) @  0.15/s (n=5)
    use_re: 18 wallclock secs (17.14 usr +  0.00 sys = 17.14 CPU) @  0.29/s (n=5)
   use_str: 25 wallclock secs (24.99 usr +  0.00 sys = 24.99 CPU) @  0.20/s (n=5)
        s/iter  use_qr use_str  use_re
use_qr    6.72      --    -26%    -49%
use_str   5.00     35%      --    -31%
use_re    3.43     96%     46%      --

Appuyez sur une touche pour continuer...