Re: Custom Sort An AoA

The general trick is to append your additional sort criteria to the sort block.

@list= sort {    @$a <=> @$b
              || ... secondary criterion ...
              || ... tertiary criterion ... 
            } @list;
[download]

So all that remains is to find the appropriate expression to find and compare the last elements of each array:

$a->[-1] cmp $b->[-1] # untested
[download]

Taken together, your sort expression would be

@list= sort {    @$a <=> @$b
              || $a->[-1] cmp $b->[-1]
            } @list;
[download]

Comment on Re: Custom Sort An AoA Select or Download Code

Replies are listed 'Best First'.
Re^2: Custom Sort An AoA by Limbic~Region (Chancellor) on Apr 01, 2014 at 17:09 UTC
Corion, I must not have done a good job of explaining. Start at the last element and if they are equivalent then check the next to the last and if they are equivalent check the next to the next to the last.... Your solution fails to produce the correct output because you are only comparing the last element. Cheers - L~R	[reply]

In Section Seekers of Perl Wisdom