Benchmark of Empty String Comparisons

benchmark-empty-strings.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark ( 'cmpthese' );

my $foo = '';

cmpthese( 10000000, {
    'direct' => sub { return $foo eq '' },
    'length' => sub { return length $foo },
    'regexp' => sub { return $foo =~ /^$/ },
});

$foo = 'something';

cmpthese( 10000000, {
    'direct' => sub { return $foo eq '' },
    'length' => sub { return length $foo },
    'regexp' => sub { return $foo =~ /^$/ },
});