Sorting by the value of the inner hash

[Anonymous Monk]

Monks
Could you please tell me why this code is not sorting my values?

$totalscoreinv{$key1}{key2}= $totalscore;

foreach $keyscore (sort by_score keys %totalscoreinv){
   print OUT "\n\n $keyscore\n";
 foreach my $keyscore2 (keys %{$totalscoreinv{$keyscore}}){
    printf(OUT "%30s %s\n", "$keyscore2= ", "$totalscoreinv{$keyscore}
+{$keyscore2}");
 }
}

sub by_score {
 $totalscorepass{$keyscore}{$b}<=>$totalscorepass{$keyscore}{$a};
}

One more question, once is sorted, how I can get/display/or compare with only the best(first) value by each outer-key?
Thanks

[Anonymous Monk]

Sorry, I copy-paste the wrong subroutine

sub by_score {
 $totalscoreinv{$keyscore}{$b}<=>$totalscoreinv{$keyscore}{$a};
}

[matija]

Well, without your either:
1. Posting the whole relevant section of your new code or
2. Telling us exactly how it's not working
It's hard for any of us to help you.

[Anonymous Monk]

I moved it to the inner loop, and still it is not working. Thanks

[Anonymous Monk]

1. Modified code

$totalscoreinv{$key1}{key2}= $totalscore;

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

sub by_score {
 $totalscoreinv{$keyscore}{$b}<=>$totalscoreinv{$keyscore}{$a};
}

2. well..as simple as it is not sorting at all. Here an excerpt of my results

 First key:700200
-----------------------------------------------------------
                523261=  -509.711586526694
                523237=  -494.393864137596
                523246=  -438.024029240629
                523424=  -521.488541326437
                523247=  -470.547762535975

Thanks

[DamnDirtyApe]

I'm going to suggest you do the following:

• Provide a sample of real data you're feediing into this chunk of code
• Provide the actual results you're getting
• Provide the precise results you expected to get

That aside, is it possible that $totalscoreinv{$key1}{key2} is supposed to be $totalscoreinv{$key1}{$key2}?

[Anonymous Monk]

Answering the third point, I expect the following

First key:700200
                523246=  -438.024029240629
                523247=  -470.547762535975
                523237=  -494.393864137596
                523261=  -509.711586526694
                523424=  -521.488541326437

[DamnDirtyApe]

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.

[halley]

First, DamnedDirtyApe gave you a strong hint: the first line has a typo where you missed a dollar sign. This would put all the scores on a single key 'key2' in what you're calling the inner hash.

Second, maybe this mistake was just typing your example wrong, but that's why we want you to know How to ask questions the smart way.

Third, boil your test case down to a single routine which you CAN copy here in whole. This allows people to use their computers, not just their eyeballs, to help you find the problem. That includes a sample __DATA__ section if necessary. If we can't reproduce your problem at our desks, we are limited in how we can help.

# build a data structure from <DATA>
# use the data structure (print loops, etc.)
# support the data structure (custom sort routines, etc.)
__DATA__
# provide sample data

[duff]

Is $keyscore inside of the by_score subroutine the same as the one from your loop? At guess, I'd say it's not. Try putting the subroutine inline:

foreach $keyscore (sort { $totalscoreinv{$keyscore}{$b}<=>$totalscorei
+nv{$keyscore}{$a} } keys %totalscoreinv) {
   ...
}

[Anonymous Monk]

Thanks Monks it is working now, as you suggested I put the sort instruction inline.

Could you please give me a hint for my second question? (original message)..Thanks