Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use warnings;
...
my $tend2 = time;
warn "sort + output: ", $tend2 - $tstart2, " secs\n";
warn "total: ", $tend2 - $tstart1, " secs\n";

Select or download this

llil start
get_properties : 13 secs
...
get properties: 21 secs
sort + output: 25 secs
total: 46 secs