Select Code to Download

# llil2grt.pl. Try a GRT version.
# Example run: perl llil2grt.pl tt1.txt tt2.txt tt3.txt >out.txt
...

warn "sort + output  : $taken2 secs\n";
warn "total          : $taken secs\n";

> perl llil2grt.pl big1.txt big2.txt big3.txt >perl2grt.tmp

llil2grt start
get_properties : 10 secs
sort + output  : 20 secs
total          : 30 secs
Memory use (Windows Private Bytes): 2,657,968K

> diff perl2d.tmp perl2grt.tmp

my @data;
while ( my ($k, $v) = each %{$href} ) { push @data, dualvar($v, $k) }
...
for my $key ( sort { $b <=> $a } sort @data ) {
   say "$key\t" . (0 + $key);
}

my @lines;
while (my ($k, $v) = each %{$href}) { push @lines, pack('NA*', -$v, "$
+k\t$v") }

say substr($_, 4) for sort @lines;