None of the code above works actually.
The code I gave you in my first response works fine for me:
t$ perl -le 'my @o=([3, 1, 2]);print "@{$o[0]}";my @s=sort {$b <=> $a} + @{$o[0]};print"@s";' 3 1 2 3 2 1
In reply to Re^4: sorting the column of array element
by sauoq
in thread sorting the column of array element
by anonym
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |