benchmark sting formatting

biostars140225.pl

#!/usr/bin/env perl

use 5.020;
use strict;
use warnings;
use Benchmark qw(:all);

my $seq = "ATCG" x 25e6; # 100Mb string
my $count = 10;

my $results = timethese($count, {
    'regex' => sub {
	$seq =~ s/(.{60})/$1\n/gs;
	say STDERR $seq;
    },
    'unpack' => sub {
	say STDERR $_ for unpack("(A60)*", $seq);
    },
});

cmpthese( $results );