Select Code to Download

$ perl lliltch.pl big{1,2,3}.txt | cksum
Tokyo Cabinet hash database - start
...
    count lines  : 10545600
    count unique : 10367603
2956888413 93308427

##
# This demonstration requires Tokyo Cabinet.
...
printf {*STDERR} "total time       : %9.3f secs\n", time - $start1;
printf {*STDERR} "    count lines  : %lu\n", $num_lines;
printf {*STDERR} "    count unique : %lu\n", $unique;