### Re: How to sort a multidimensional array

by HuckinFappy (Pilgrim)
 on Jul 11, 2006 at 04:19 UTC 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

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://560304]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others sharing their wisdom with the Monastery: (5)
As of 2024-09-10 01:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?

No recent polls found

Notices?
 • erzuuli ‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.