Prev Next Index | Sort::Maker | Page 10/12 |
sub { map $_->[0], sort { $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] } map [ $_, do{ my ($val) = $_->[0] ; $val }, do{ my ($val) = $_->[1] ; $val } ], @_ ; }
Prev Next Index | YAPC::NA 2004, Buffalo, NY | Page 10/12 |
© 2004 Uri Guttman |