Select Code to Download

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

##
# This demonstration requires Kyoto 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;