: Monday, July 22, 2002 14:45
To: [EMAIL PROTECTED]
Subject: sorting %hash entries
I have a small query regarding how to sort hash entries in numerical
order.
%usernum { server.one.com 15,
server.two.com 5,
server.three.com 14,
server.
On Tue, 23 Jul 2002, dan wrote:
ok.. that worked, now how about if i wanted it to go the other way.. from
most to least?
foreach my $MyId (sort {$usernum{$a} = $usernum{$b}} keys (%usernum)) {
print $MyId\n;
}
This will print
server.two.com
server.four.com
server.three.com
server.one.com
Dan wrote:
ok.. that worked, now how about if i wanted it to go the other way.. from
most to least?
my @sorted = sort { $usernum{$b} = $usernum{$a} } keys %usernum;
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail:
: sorting %hash entries
ok.. that worked, now how about if i wanted it to go the other way.. from
most to least?
dan
David Wagner [EMAIL PROTECTED] wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
Here is one shot:
%usernum = ( server.one.com, 15,
server.two.com, 5,
server.t
I have a small query regarding how to sort hash entries in numerical order.
%usernum { server.one.com 15,
server.two.com 5,
server.three.com 14,
server.four.com 9 }
How can i get perl to return these 4 server names in the correct
(sorry if this message comes twice.. didn't appear to have sent the first
time)
I have a small query regarding how to sort hash entries in numerical order.
%usernum { server.one.com 15,
server.two.com 5,
server.three.com 14,
Dan wrote:
I have a small query regarding how to sort hash entries in numerical order.
%usernum { server.one.com 15,
server.two.com 5,
server.three.com 14,
server.four.com 9 }
How can i get perl to return these 4 server names
the command 'sort' allow you to put in your own routine to do sorting.
%usernum = (server.one.com = 15,
server.two.com = 5,
server.three.com = 14,
server.four.com = 9);
@arr = sort {$usernum{$a} = $usernum{$b}} (keys %usernum);
print join( , @arr);
Tor.