- or download this
#!perl -w
use strict;
...
'tr_via_readline 1m' => \&tr_via_readline_1_000_000,
}
);
- or download this
X:\>perl -w tmp.pl
Running with a dataset of 200000000
...
tr_via_readline 1m 2.61/s 20% 2%
+ -- -66% -72%
tr_map_file 7.60/s 249% 198%
+ 191% -- -18%
tr_in_memory 9.25/s 325% 263%
+ 254% 22% --
- or download this
s/iter tr_via_readline 10k tr_via_readline 100k t
+r_via_readline 1m tr_map_file tr_in_memory
tr_via_readline 10k 4.61 -- -15%
+ -17% -65% -77%
...
tr_via_readline 1m 3.83 20% 2%
+ -- -58% -72%
tr_map_file 1.60 189% 145%
+ 140% -- -32%
tr_in_memory 1.08 327% 262%
+ 255% 48% --