[web4d]

I have the following array of numbers:

@Numbers=(123, 32, 456, 44, 54345, 434534545);

How can I get an array that gives me out these numbers ordered (rising)?!

( ---
@Numbers_ordered=(32, 44, 123, 456, 54345, 434534545);
--)




PLEASE HELP ME!!

[Chas]

You need to use sort. The probem is, by default, sort sorts lexically ( aka asciibetically). You have to override the default search to sort numerically like so:

Code:

#!/usr/bin/perl -w
use strict;

my @numbers = (123, 32, 456, 44, 54345, 434534545);
my @sorted = sort { $a <=> $b } @numbers;
# use can also use $b <=> $a to sort in reverse order

print "Content-Type: Text/HTML\n\n";
print '<pre>' . join(' - ', @sorted) . '</pre>';

Check http://www.perldoc.com/ for more info on sort

~Charlie