Prev Next Index | Sort::Maker | Page 11/12 |
sub { my $rec_ind = 0 ; return @_[ map unpack( 'N', substr( $_, -4 ) ), sort map pack( "Z*Z*N", do{ my( $val ) = $_->[0] ; ( $val ) }, do{ my( $val ) = $_->[1] ; ( $val ) }, $rec_ind++ ), @_ ] ; }
Prev Next Index | YAPC::NA 2004, Buffalo, NY | Page 11/12 |
© 2004 Uri Guttman |