Re: (nrd) Sorting an array

[newrisedesigns]

in reply to Sorting an array

use CGI;

%month_array = (
'01'  => "Jan",
'02'  => "Feb",
'03'  => "Mar",
'04'  => "Apr",
'05'  => "May",
'06'  => "June",
'07'  => "July",
'08'  => "Aug",
'09'  => "Sep",
'10' => "Oct",
'11' => "Nov",
'12' => "Dec"
);

print CGI::popup_menu(-name=>"month_array",
    -values=>[sort {$a cmp $b} keys %month_array],
    -labels=>\%month_array,
    -default=>$mon,
    -class=>"formfield")

John J Reiser
newrisedesigns.com

[powerhouse]

Thank you. However, it is still putting it like this:

value = 1 label = Jan
..10 ..Oct
..11 ..Nov
..12 ..Dec
..2 ..Feb
..3 ..Mar
...Etc.

Here is what I put:



popup_menu(-name=>"month_array",
    -values=>[sort {$a cmp $b} keys %month_array],
    -labels=>\%month_array,
    -default=>$mon,
    -class=>"formfield")


Did I do it wrong?


OOPS. I see, I did not add the 0 in front of the others :o)


thx,
Richard

[newrisedesigns]

No problem. Glad to help!

If you absolutely can't have the leading zero, do what the good monk pfaut did below.

John J Reiser
newrisedesigns.com