Re^2: Array of Hashes and sorting by values

Thank you for your answer.

Following that I tried the following code:


sub par_num { return $a <=> $b }

$old[0]{jure} = 1;
$old[1]{juge} = 1;
$old[2]{pupe} = 3;
$old[3]{mupe} = 2;

@tri = sort par_num @old;
@old = @tri;

for $i ( 0 .. $#old ) {
    print "$i is { ";
    for $mot ( keys %{ $old[$i] } ) {
         print "$mot=$old[$i]{$mot} ";
    }
    print "}\n";
}
[download]

It works well on simple array but not on array of hashes

Comment on Re^2: Array of Hashes and sorting by values Download Code

Replies are listed 'Best First'.
Re^3: Array of Hashes and sorting by values by Corion (Patriarch) on Jan 17, 2011 at 20:20 UTC
I guess you need to modify the code in `par_num` to actually return the number associated with the name, instead of doing a simple numerical comparison of the names. `sub par_num { $a->{ (keys %$a)[0]} <=> $b->{ (keys %$b)[0]} };` [download] ... is untested but could do what you need.	[reply] [d/l] [select]
Re^4: Array of Hashes and sorting by values by pandelis (Initiate) on Jan 18, 2011 at 07:42 UTC
Your code works ! Thank you very much !	[reply]