Tie::Hash::Sorted 0.10

Tie::Hash::Sorted Perl module presents hashes in sorted order. SYNOPSIS use Tie::Hash::Sorted; my %ages = ( John => 33, Jacob => 29, Jingle => 15, Heimer => 48, Smitz => 12, ); my $sort_by_numeric_value = sub { my $hash = shift; [ sort {$hash->{$b} <=> $hash->{$a}} keys %$hash ]; }; tie my %sorted_ages, Tie::Hash::Sorted, Hash => %ages, Sort_Routine => $sort_by_numeric_value; for my $name ( keys %sorted_ages ) { print "$name is $sorted_ages{$name} years old.n"; } ### OUTPUT ### Heimer is 48 ears old. John is 33 ears old. Jacob is 29 ears old. Jingle is 15 ears old. Smitz is 12 ears old..

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Ears,  Libraries,  Old,  Perl,  Perl Module,  Presents,  Programming,  Sort,  Sorted,  Sorted Perl,  Tiehashsorted
Users rating:	0/10