Re^3: sort by a multiple columns

[CombatSquirrel]

I'm sorry, but neither you nor Roy Johnson follow the OP insofar as he would like undefined array elements to be treated like infinity rather than zero, that is, he says he wants

3,4,23,4,5
3,4,56,2,4
3,4

instead of

3,4
3,4,23,4,5
3,4,56,2,4

Might just have been a typo though, as it's quite unusual.
CombatSquirrel.

[BrowserUk]

Don't be sorry, your absolutely right :) Especially as my attempted correction of Roy Johnson's code was crap anyway.

[Roy Johnson]

Good observation. The fix is surprisingly simple:

  sort {
    ## Compare through the shorter only
    for (0..(@$a>@$b ? $#{$b} : $#{$a})) {
      return $a->[$_] <=> $b->[$_] || next
    }
    ## If no difference, the longer array is first
    @$b <=> @$a;