use strict;
use warnings;
my @aoh =(
{
3 => 15,
4 => 8,
5 => 9,
},
{
3 => 11,
4 => 25,
5 => 6,
},
{
3 => 5,
4 => 18,
5 => 5,
},
{
0 => 16,
1 => 11,
2 => 7,
},
{
0 => 21,
1 => 13,
2 => 31,
},
{
0 => 11,
1 => 14,
2 => 31,
},
);
#declaring a new array to store the sorted hashes
my @new;
print "\n-------------expected output------------\n";
foreach my $href (@aoh)
{
#i want a new array of hashes where the hashes are sorted
my %newhash;
my @sorted_keys = sort {$href->{$b} <=> $href->{$a} || $b <=> $a} keys %$href;
foreach my $key (@sorted_keys)
{
print "$key => $href->{$key}\n";
$newhash{$key} = $href->{$key};
}
print "\n";
push(@new,\%newhash);
}
print "-----------output i am getting---------------\n";
foreach my $ref(@new)
{
my @skeys = skeys %$ref;
foreach my $key (@skeys)
{
print "$key => $ref->{$key}\n"
}
print "\n";
}
The output of the program :
-------------expected output------------
3 => 15
5 => 9
4 => 8
4 => 25
3 => 11
5 => 6
4 => 18
5 => 5
3 => 5
0 => 16
1 => 11
2 => 7
2 => 31
0 => 21
1 => 13
2 => 31
1 => 14
0 => 11
-----------output i am getting---------------
4 => 8
3 => 15
5 => 9
4 => 25
3 => 11
5 => 6
4 => 18
3 => 5
5 => 5
1 => 11
0 => 16
2 => 7
1 => 13
0 => 21
2 => 31
1 => 14
0 => 11
2 => 31
Please tell me what am i doing wrong in storing the hashes into a new array.. how do i achieve what i want.. ? Thanks in advance...
