in reply to Sorting multi-dimensional arrays

Your problem is that the <=> operator in the sort is a numeric comparison, and with the strings not beginning with a number they evaluate to a 0.

Simple solution: Replace the <=> with a cmp

Replies are listed 'Best First'.
Re^2: Sorting multi-dimensional arrays
by Aristotle (Chancellor) on Sep 11, 2002 at 17:18 UTC
    Except that will do the wrong thing for CC100 vs CC1000..

    Makeshifts last the longest.

[reply]

      This is true, I was assuming (Big mistake..) that given the leading zeroes that these numbers were all zero padded. If not the following Schwartzian Transform should work- it's just not as simple a fix as the earlier one.

      # Note: Read Schwartzian Transforms from bottom-up,
#  it makes it easier to understand that way.
@sorted =
  # And finally map back to the original array.
  # [3,['CCI003','1','N']] -> ['CCI003','1','N'].
  map { $_->[1] }

  # Sort by the numeric component we just extracted
  sort { $a->[0] <=> $b->[0] }

  # Map onto an array consisting of the numeric component
  #  of the first part.
  # ['CCI003','1','N'] -> [3,['CCI003','1','N'].
  map { [ $_->[0]=~/(\d+)/, $_] }

  # Take the initial array
  @array;

      [download]

      Update: Fixed bad formatting.

[reply]
[d/l]

In Section Seekers of Perl Wisdom