qr-re-time-trial.pl

#!/usr/bin/perl

use strict;
use warnings;
use English;
use feature qw( say );
use autodie qw( :all );
use Time::HiRes qw(gettimeofday tv_interval);

open(my $fh, "<", "/usr/share/dict/words");
my @words = <$fh>;
close($fh);

my $start;
my $count;
my $str = 'b.+ean';
my $re = qr/$str/;

$count = 0;
$start = [gettimeofday];
foreach (@words) {
    $count++ if /$re/;
    }
say "precompile : count=$count interval=" . tv_interval($start);

$count = 0;
$start = [gettimeofday];
foreach (@words) {
    $count++ if /b.+ean/;
    }
say "hardcode   : count=$count interval=" . tv_interval($start);

$count = 0;
$start = [gettimeofday];
foreach (@words) {
    $count++ if /$str/;
    }
say "interpolate: count=$count interval=" . tv_interval($start);