note
BrowserUk
<p>Since there has been all the dicussion regarding ST -v- GRT, here's an multi-level GRT version. Runs about twice as fast.
<code>
print for map{
substr( $_, 1+index( $_, '|' ) )
} sort map {
my $key1 = $_;
map {
pack 'NA* NA* A1 A*',
split( '\.', $key1 ),
split( '\.', $_ ),
'|',
$hash{ $key1 }{ $_ }
} keys %{ $hash{ $_ } };
} keys %hash;
</code>
<p>Just plug it into the test script above to see it run.
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>Examine what is said, not who speaks.</div>
"Efficiency is intelligent laziness." -David Dunham<br />
"Think for yourself!" - [Abigail-II|Abigail] <br />
"Memory, processor, disk in that order on the hardware side. Algorithm, algoritm, algorithm on the code side." - [tachyon]<br />
</font>
</div></div>
376443
376452