perl hashes

[Bart Grieten]

Hi everyone, I'm not an expert Perl programmer and I'm trying to sort a
hash.
I know how to sort it by it's keys, but this time it should be sorted by its
values.

So if I have

%hash = (
Apples => 1,
apples => 4,
artichokes => 3,
Beets => 9,
);

then it should be sorted and printed in this way:

Beets 9
apples 4
artichokes 3
Apples 1

Can anyone help me with this problem?

Thanks

[Gunnar Hjalmarsson]

[ Do not post the same question in multiple newsgroups!! ]

Bart Grieten wrote:

I'm trying to sort a hash.
I know how to sort it by it's keys, but this time it should be
sorted by its values.

And if you don't know how to do that, it's good idea to look it up,
don't you think?

perldoc -f sort

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

[hubert depesz lubaczewski]

Bart Grieten wyrze¼bi³(a):

%hash = (
Apples => 1,
apples => 4,
artichokes => 3,
Beets => 9,
);
then it should be sorted and printed in this way:
Beets 9
apples 4
artichokes 3
Apples 1

using variable number of spaces make the whole thing very complicated.
yet. if the number of spaces should be the same, you simply:

for my $sKey (sort { $hash{$b} <=> $hash{$a} } keys %hash) {
printf("%s : %u\n", $sKey, $hash{$sKey});
}

depesz

--
*-----------------------------------------------------------------*
czaderskie dywaniki do ³azienki lub przed ³ó¿ko:
http://www.allegro.pl/show_user_auctions.php?uid=118670