#!/usr/bin/perl_parallel -w
# For Emacs: -*- mode:cperl; mode:folding -*-

use strict;
use warnings;

use Benchmark;

my $value = "somewhere here true is there!";

timethese
(
    5000000,
    {
            'index' => sub { index( $value, 'true' ) },
            'regex' => sub { $value =~ /true/ },
    }
);

timethese
(
    5000000,
    {
            'index' => sub { index( lc $value, 'true' ) },
            'regex' => sub { $value =~ /true/i },
    }
);

##</code><code>##

Benchmark: timing 5000000 iterations of index, regex...
     index:  2 wallclock secs ( 1.04 usr +  0.00 sys =  1.04 CPU) @ 4807692.31/s (n=5000000)
     regex:  2 wallclock secs ( 2.16 usr +  0.01 sys =  2.17 CPU) @ 2304147.47/s (n=5000000)
Benchmark: timing 5000000 iterations of index, regex...
     index:  3 wallclock secs ( 2.83 usr +  0.00 sys =  2.83 CPU) @ 1766784.45/s (n=5000000)
     regex:  4 wallclock secs ( 3.45 usr +  0.02 sys =  3.47 CPU) @ 1440922.19/s (n=5000000)

##</code><code>##

Benchmark: timing 5000000 iterations of index, regex...
     index:  1 wallclock secs ( 1.10 usr +  0.00 sys =  1.10 CPU) @ 4545454.55/s (n=5000000)
     regex:  2 wallclock secs ( 2.25 usr +  0.01 sys =  2.26 CPU) @ 2212389.38/s (n=5000000)
Benchmark: timing 5000000 iterations of index, regex...
     index:  4 wallclock secs ( 2.99 usr +  0.01 sys =  3.00 CPU) @ 1666666.67/s (n=5000000)
     regex:  3 wallclock secs ( 3.66 usr +  0.01 sys =  3.67 CPU) @ 1362397.82/s (n=5000000)

##</code><code>##

perl_parallel -V
Summary of my perl5 (revision 5 version 8 subversion 6) configuration:
  Platform:
    osname=linux, osvers=2.6.8-24-smp, archname=i586-linux-thread-multi
    uname='linux builder 2.6.8-24-smp #1 smp wed oct 6 09:16:23 utc 2004 i686 i686 i386 gnulinux '
    config_args='-ds -e -Dprefix=/opt/PM_perl-5.8.6 -Dvendorprefix=/opt/PM_perl-5.8.6 -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm -Duseshrplib=true -Doptimize=-O2 -g -march=i586 -mcpu=i686 -fmessage-length=0 -Wall -pipe'