Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: sorting not sort

by Roger (Parson)
on Aug 29, 2005 at 08:42 UTC ( #487358=note: print w/ replies, xml ) Need Help??


in reply to sorting not sort

You can put multiple conditions in the sort, using the || operator, so that when the first rule is equal (ie, =0), the second rule will kick in, otherwise take the first rule.

$strings{"E1,E2"} = 1; $strings{"E1,E3"} = 3; $strings{"E1,E4"} = 2; $strings{"E1,E5"} = 3; $strings{"E1,E6"} = 3; $strings{"E1,E7"} = 5; $strings{"E1,E8"} = 1; $strings{"E1,E9"} = 0; $strings{"E1,E10"} = 12; my @sorted = map { $_->[0] } sort { ($b->[2] <=> $a->[2]) || ($a->[1] <=> $b->[1]) } map { my $old_key = $_; # transform my keys so I can compare them as digits my ($k1, $k2) = $old_key =~ /(\d)/g; my $new_key = sprintf("%04d%04d", $k1, $k2); [ $old_key, $new_key, $strings{$old_key} ] } keys %strings; print map{ "$_ = $strings{$_}\n" } @sorted;



Comment on Re: sorting not sort
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://487358]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (7)
As of 2014-08-30 03:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (291 votes), past polls