http://qs321.pair.com?node_id=341238


in reply to Re: Re: Sorting by the value of the inner hash
in thread Sorting by the value of the inner hash

That's great, but those points aren't mutually exclusive. We really need you to answer all of them to provide you with any useful information.

TIP: Put use strict; at the beginning of this script, and every script you write from now on. You'll thank me one day.


_______________
DamnDirtyApe 
Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche
  • Comment on Re: Re: Re: Sorting by the value of the inner hash

Replies are listed 'Best First'.
Re: Re: Re: Re: Sorting by the value of the inner hash
by Anonymous Monk on Mar 31, 2004 at 08:25 UTC
    1. I answered your second point in my reply to matija
    2. The input is a huge hash (HOH) table with the same data distribution you can see in the results table(second point).
    3. The code I provided is an excerpt of a whole program, and the only thing is missig is the sorting. I am using strict and warnings.
    4. I really don't know what else you need unless you want the whole program that is more than 6 pages
    Thanks
[reply]

      Give this a shot:

      #! /usr/bin/perl
use strict;
*OUT = *STDOUT;

my %totalscoreinv;
$totalscoreinv{700200} = {
    523246 => -438.024029240629,
    523247 => -470.547762535975,
    523237 => -494.393864137596,
    523261 => -509.711586526694,
    523424 => -521.488541326437
};

foreach my $keyscore (keys %totalscoreinv) {
    print OUT "\n\nFirst key:$keyscore\n";
    foreach my $keyscore2 ( sort 
                            {$totalscoreinv{$keyscore}{$b}
                             <=>
                             $totalscoreinv{$keyscore}{$a}}
                            keys %{$totalscoreinv{$keyscore}} ) {
        printf OUT "%30s %s\n",
                   "$keyscore2= ",
                   $totalscoreinv{$keyscore}{$keyscore2};
    }
}

      [download]

      _______________
      DamnDirtyApe 
      Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche
[reply]
[d/l]

In Section Seekers of Perl Wisdom