in reply to problem while sorting hash

To add to davorg's point about needing an array, here's one way you might do it.
#!/usr/local/bin/perl use strict; use warnings; use Data::Dumper; $Data::Dumper::Indent = 1; my $hash_value = { '75.34.42.17511726663' => { '2005' => ['11.5', '363,842'], '1995' => ['', '200,000'], '2004' => ['9.2', '326,345'], '2001' => ['6.7', '263,645'], '1995' => ['','200,000'], '1997' => ['2.6', '212,118'], '1998' => ['3.7', '219,980'], '2002' => ['7.6', '283,665'], '2006' => ['9.4', '398,148'], '2000' => ['7.7', '247,015'], '1996' => ['3.3', '206,680'], '1999' => ['4.2', '229,281'], '2003' => ['5.4', '298,857'], } }; my $key = q{75.34.42.17511726663}; my @sorted_by_year; for my $year (sort keys %{$hash_value->{$key}}) { push @sorted_by_year, {$year => $hash_value->{$key}{$year}}; } print Dumper \@sorted_by_year;
output:
$VAR1 = [ { '1995' => [ '', '200,000' ] }, { '1996' => [ '3.3', '206,680' ] }, { '1997' => [ '2.6', '212,118' ] }, { '1998' => [ '3.7', '219,980' ] }, { '1999' => [ '4.2', '229,281' ] }, { '2000' => [ '7.7', '247,015' ] }, { '2001' => [ '6.7', '263,645' ] }, { '2002' => [ '7.6', '283,665' ] }, { '2003' => [ '5.4', '298,857' ] }, { '2004' => [ '9.2', '326,345' ] }, { '2005' => [ '11.5', '363,842' ] }, { '2006' => [ '9.4', '398,148' ] } ];

Replies are listed 'Best First'.
Re^2: problem while sorting hash
by Anonymous Monk on Mar 21, 2007 at 03:41 UTC
    Thanks wfsp.