home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cse.unsw.edu.au
/
2014.06.ftp.cse.unsw.edu.au.tar
/
ftp.cse.unsw.edu.au
/
pub
/
doc
/
languages
/
perl
/
nutshell
/
ch5
/
sortfield
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-10-18
|
267 b
|
7 lines
local(_@_K_E_Y_S);
foreach (_@_D_A_T_A) {
push(_@_K_E_Y_S, _K_E_Y_E_X_P_R);
}
sub _S_O_R_T_F_U_N_C { _B_Y_K_E_Y_E_X_P_R; }
_@_S_O_R_T_D_A_T_A = _@_D_A_T_A[sort _S_O_R_T_F_U_N_C $[.._$_#_D_A_T_A];