Help for this page

Select Code to Download

Select or download this

$ perl llilsql.pl big{1,2,3}.txt | cksum
Tie::Hash::DBD SQLite database - start
...
    count lines  : 10545600
    count unique : 10367603
2956888413 93308427

Select or download this

use strict;
use warnings;
...
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;