Performance of Perl6 string operations

bench.p6

use v6;

my $N = 100_000;
my %words;

print "generating input...";
my $input = join '', map { "$_\t42\n" }, 1..$N;
print "done.\n";

sub bench($name, &code) {
    %words = ();

    my $start = now;
    code;
    my $end = now;

    say "{ +%words } words parsed in { ($end - $start).round(0.01) }s ($name)";
}

bench 'global match', {
    %words = ($input ~~ m:g/(<-[\n\t]>+)\t(\N+)/).map(*>>.Str.Slip);
}

bench 'split on regex', {
    for $input.lines {
        my ($k, $v) = .split(/\t/, 2);
        %words{$k} = $v;
    }
}

bench 'split on string', {
    for $input.lines {
        my ($k, $v) = .split("\t", 2);
        %words{$k} = $v;
    }
}

bench 'index', {
    for $input.lines {
        my $tab = .index("\t");
        %words{.substr(0, $tab)} = .substr($tab + 1);
    }
}

bench 'FORTRAN', {
    my str $str = $input;
    my int $pos = 0;
    my int $chars = $str.chars;
    while $pos < $chars {
        my int $tab = $str.index("\t", $pos);
        my int $nl = $str.index("\n", $tab);
        %words{$str.substr($pos, $tab - $pos)} =
            $str.substr($tab + 1, $nl - $tab - 1);
        $pos = $nl + 1;
    }
}

bench 'FORTRAN using NQP builtins', {
    use nqp;
    my str $str = $input;
    my int $pos = 0;
    my int $chars = nqp::chars($str);
    while $pos < $chars {
        my int $tab = nqp::index($str, "\t", $pos);
        my int $nl = nqp::index($str, "\n", $tab);
        %words{nqp::p6box_s(nqp::substr($str, $pos, $tab - $pos))} =
            nqp::p6box_s(nqp::substr($str, $tab + 1, $nl - $tab - 1));
        $pos = $nl + 1;
    }
}

bench.pl

use v5;
use Time::HiRes qw(time);
use File::Slurp qw(read_file);

my $N = 100_000;
my %words;

print "generating input...";
my $input = join '', map { "$_\t42\n" } 1..$N;
print "done.\n";

sub bench {
    my ($name, $code) = @_;
    %words = ();

    my $start = time;
    $code->();
    my $end = time;

    printf "%u words parsed in %.2fs (%s)\n",
        scalar keys(%words), $end - $start, $name;
}

bench 'global match', sub {
    %words = ($input =~ /([^\n\t]+)\t(\N+)/g);
};

bench 'split on regex', sub {
    for ($input =~ /\N+/g) {
        my ($k, $v) = split(/\t/, $_, 2);
        $words{$k} = $v;
    }
};

bench 'split on string', sub {
    for ($input =~ /\N+/g) {
        my ($k, $v) = split("\t", $_, 2);
        $words{$k} = $v;
    }
};

bench 'index', sub {
    for ($input =~ /\N+/g) {
        my $tab = index($_, "\t");
        $words{substr($_, 0, $tab)} = substr($_, $tab + 1);
    }
};

bench 'FORTRAN', sub {
    my $str = $input;
    my $pos = 0;
    my $chars = length($str);
    while ($pos < $chars) {
        my $tab = index($str, "\t", $pos);
        my $nl = index($str, "\n", $tab);
        $words{substr($str, $pos, $tab - $pos)} =
            substr($str, $tab + 1, $nl - $tab - 1);
        $pos = $nl + 1;
    }
};

graph.md

result.csv