rc-timings5

#!/usr/bin/env raku
## task run-times as real (wall-clock) and user + system (total CPU)
#  2019-01-11

BEGIN exit if $*KERNEL eq 'linux';
 
sub MAIN($dir = "%*ENV<HOME>/perl5/Rosetta-Code/bench/last") {

    my $num = rx/<[\.0..9]>+/;

    my @dirs = $dir.IO;
    while @dirs {
        for @dirs.pop.dir -> $path {
            next unless $path ~~ /err $$/;
            my $text = $path.IO.slurp;
            my ($r, $u, $s) = ($text ~~ m:g/<after \t> ($num)/).list;
            printf "%5.1f\t%5.1f\t%s\n", $r, $u+$s, $path.basename.subst('.err', '');
        }
    }
}