Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: How to sort a multidimensional array

by HuckinFappy (Pilgrim)
on Jul 11, 2006 at 04:19 UTC ( #560304=note: print w/replies, xml ) Need Help??


in reply to How to sort a multidimensional array

Jeff Goldblum Actor Mary Heartman Priest John Ericsson Mathmetician Tony Cisneros Chef How can I sort on Vocation?
Well, there's lots of ways of course!

First off, I don't see any multidimensional array in your example. I just see a list of data. So let's make it a real multidimensional array:

my @data = ( [ qw(Jeff Goldblum Actor) ], [ qw(Mary Heartman Priest) ], [ qw(John Ericsson Mathmetician) ], [ qw(Tony Cisneros Chef) ], );
Ok, so now we have an array with 4 elements, each of which is a reference to an array of 3 elements. So now you want to sort on the Vocation, which is the third field. There are many approaches...personally I'm old school, and am a sworn Schwartzian Transform kind of guy:
my @sorted = map { $_->[0] } # Line 4 sort { $a->[1] cmp $b->[1] } # Line 3 map { [ $_, $_->[2] ] } # Line 2 @data; # Line 1
What the heck does that do? Read it backwards:
  1. Line #1 is your original list
  2. Line #2 - For each element in the original list, create an anonymous array of two elements: The first element in the array is the element fed in from the original array. The second element is field 2, which is the value of Vocation, or what you wanted to sort by
  3. Line #3 - Sort those anonymous arrays by field 1 (Vocation)
  4. Line #4 - As those anonymous array come out of sort, remap them to the original element from the unsorted @data.
my @data = ( [ qw(Jeff Goldblum Actor) ], [ qw(Mary Heartman Priest) ], [ qw(John Ericsson Mathmetician) ], [ qw(Tony Cisneros Chef) ], ); my @sorted = map { $_->[0] } # Line 4 sort { $a->[1] cmp $b->[1] } # Line 3 map { [ $_, $_->[2] ] } # Line 2 @data; # Line 1 for ( @sorted ) { printf "%s %s - %s\n", @{ $_ }; }
fappy@flux[16] perl /tmp/sortit Jeff Goldblum - Actor Tony Cisneros - Chef John Ericsson - Mathmetician Mary Heartman - Priest
Hope this helps some,

~Jeff

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2021-06-13 09:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What does the "s" stand for in "perls"? (Whence perls)












    Results (54 votes). Check out past polls.

    Notices?