Gunnar Hjalmarsson <(E-Mail Removed)> writes:

> A lexical sort of numbers? Not a good advice, is it? (It happens to

> give the same result as a numerical sort applied on the above data,

> since all the values are integers with the same number of digits.)
You're right, of course. I imagine my brain saw the quotes around the

numbers, and went on "lexical autopilot".

@number2 = sort {$b <=> $a} @number1;

is a much better solution.

Ryan

--

perl -e '$;=q,BllpZllla_nNanfc]^h_rpF,;@;=split//,

$;;$^R.=--$=*ord for split//,$~;sub _{for(1..4){$=

=shift;$=--if$=!=4;while($=){print chr(ord($;[$%])

+shift);$%++;$=--;}print " ";}}_(split//,$^R);q;;'