The comparison operators
return 0 when the operands are equal. So, using
the
||
operator, we can sort first by one column, then
another (as many as we want).
@data = (
[qw(Bubba brutalski 20)],
[qw(Bubba brutalski 10)],
[qw(JoeBob brutalski 20)],
[qw(Jethro brutalski 20)],
[qw(Junior brutalski 20)],
);
# Sorted by Name (Last, First)
@ByName = sort {$a->[1] cmp $b->[1] || $a->[0] cmp $b->[0]} @data;
# Sorted by Name, then score
@FullSort = sort {$a->[1] cmp $b->[1]
||
$a->[0] cmp $b->[0]
||
$a->[2] <=> $b->[2]} @data;
In the second example above, @FullSort looks like:
(
[Bubba, brutalski, 10],
[Bubba, brutalski, 20],
[Jethro, brutalski, 20],
[JoeBob, brutalski, 20],
[Junior, brutalski, 20]
)
because it is sorted by Last Name, then First Name,
then Score.
Russ
|