Presort array by test1

s#\d+.#sprintf'%4d'.$/x($'<$&),$&#eg,print"@{[sort/ .+/g]}]
"=~y/ /,/sr^w
for<>

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page