Subject: Re: 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 =
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: [
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
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.three.co
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 j
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 ret
Here is one shot:
%usernum = ( "server.one.com", "15",
"server.two.com", "5",
"server.three.com", "14",
"server.four.com", "9" );
foreach my $MyId (sort {$a->[1] <=>$b->[1]} map{[$_,$usernum{$_}]} keys
%usernum) {
printf "%-s\n", $My
