KW.pm | The Schwartzian Transform | #14 |
@split = map { [ split ] } @names; 2) Do the comparison @sort = sort { $a->[1] cmp $b->[1] || $a->[0] cmp $b->[0] } @split;
3) Join the data together @names = map { join ' ', @$_ } @sort;
join EXPR,LIST
|
<< Previous | Index | Next >> | Copyright © 2003 Daniel Allen |