Re: Re: Re: Re: Re: Sorting by the value of the inner hash

[DamnDirtyApe]

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};
    }
}