io_benchmark.p6

#!/usr/bin/env perl6
use v6;

# Test files produced with mkfile -n 10m 10m for each file size

my @file_sizes = <1m 10m 100m 1g 10g>;
my @read_sizes = <1024 65536>;

my %langs = ( ruby  => {cmd => "\{time -p ruby -e 'while buf = STDIN.read(%d) do end' < %s\} 2>&1"},
	      perl5 => {cmd => "\{time -p perl -e 'while(read(STDIN,\$buf,%d)) {}' < %s\} 2>&1"},
	      perl6 => {cmd => "\{time -p perl6 -e 'while (my \$buf = \$*IN.read(%d)) {}' < %s\} 2>&1"});


# For all the combos execute each language
for @file_sizes X %langs.keys X @read_sizes -> ($file, $lang, $chunk) {
	my $cmd = sprintf %langs{$lang}<cmd>, $chunk, $file;
        say $cmd;
	my @output = q:x/$cmd/.lines;
	say @output;
	exit;
}