#!/usr/bin/perl -w
use strict;
use Benchmark;

# Generate 1 MB of random data

my $data;
for (my $i = 0; $i <= 1048576; $i++){
    $data .= chr int rand 256;
}
my $copy = $data;

study $data;
study $copy;

# Remove X'es

Benchmark::cmpthese(-10, {
    's///'  => sub { (my $dummy = $data) =~ s/X//g; },
    'tr///' => sub { (my $dummy = $copy) =~ tr/X//d; }
});

print $copy eq $data ? "OK\n" : "NOT OK\n";

##</code><code>##

Benchmark: running s///, tr///, each for at least 10 CPU seconds...
      s///: 12 wallclock secs (10.80 usr +  0.02 sys = 10.82 CPU) @ 37.89/s (n=410)
     tr///: 15 wallclock secs (10.08 usr +  0.08 sys = 10.16 CPU) @ 42.81/s (n=435)
        Rate  s/// tr///
s///  37.9/s    --  -11%
tr/// 42.8/s   13%    --
OK

##</code><code>##

#!/usr/bin/perl -w
use strict;
use Benchmark;

# Generate 1 MB of random data

my $data;
for (my $i = 0; $i < 1048576; $i++){
    $data .= chr int rand 256;
}
my $copy = $data;

# Remove X'es

Benchmark::cmpthese(-10, {
    's///'  => sub { $data =~ s/X//g; },
    'tr///' => sub { $copy =~ tr/X//d; }
});

print $copy eq $data ? "OK\n" : "NOT OK\n";

##</code><code>##

Benchmark: running s///, tr///, each for at least 10 CPU seconds...
      s///: 11 wallclock secs (10.52 usr +  0.01 sys = 10.53 CPU) @ 72.08/s (n=759)
     tr///: 10 wallclock secs (10.53 usr +  0.01 sys = 10.54 CPU) @ 61.29/s (n=646)
        Rate tr///  s///
tr/// 61.3/s    --  -15%
s///  72.1/s   18%    --
OK

##</code><code>##

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$