powerhouse has asked for the wisdom of the Perl Monks concerning the following question:

I have a hash, with the months in it:

%month_array = (
1  => "Jan",
2  => "Feb",
3  => "Mar",
4  => "Apr",
5  => "May",
6  => "June",
7  => "July",
8  => "Aug",
9  => "Sep",
10 => "Oct",
11 => "Nov",
12 => "Dec"
);

[download]


I'm creating a popup_menu using CGI.pm. Here is the code for that:
popup_menu(-name=>"month_array",
    -values=>\%month_array,
    -labels=>\%month_array,
    -default=>$mon,
    -class=>"formfield")

[download]
That does not sort them from 1 to 12, (jan to dec).

I did have it like this:
popup_menu(-name=>"month_array",
    -values=>[sort keys %month_array],
    -labels=>\%month_array,
    -default=>$mon,
    -class=>"formfield")

[download]
That did not sort them either correctly.

How do I get them to sort from 1 to 12(values) or jan to dec(labels), using CGI.pm?

I used up both the ways I know to do it.

thx,
Richard

Replies are listed 'Best First'.
Re: Sorting an array
by pfaut (Priest) on Feb 15, 2003 at 00:45 UTC

    By default, sort performs a string sort. If you want it to do a numeric sort, you have to do something like this.

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

    [download]

    Since the keys are the numbers 1-12, you could also try -values=>[1..12] and forget the sort.

    ---
print map { my ($m)=1<<hex($_)&11?' ':'';
$m.=substr('AHJPacehklnorstu',hex($_),1) }
split //,'2fde0abe76c36c914586c';

    [download]
[reply]
[d/l]
[select]
Re: (nrd) Sorting an array
by newrisedesigns (Curate) on Feb 15, 2003 at 00:29 UTC 
    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")

    [download]

    John J Reiser
    newrisedesigns.com

[reply]
[d/l]
      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")

      [download]

      Did I do it wrong?
      OOPS. I see, I did not add the 0 in front of the others :o)

      thx,
      Richard
[reply]
[d/l]

        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

[reply]
Re: Sorting an array
by jdporter (Paladin) on Feb 15, 2003 at 03:25 UTC
    I like to let perl manage the list of indices for me. 
      my @month_names = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov De
+c );
  my @months = map { $_+1 } 0..$#month_names;
  my %labels;
     @labels{ @months } = @month_names;

  popup_menu(
    -values => \@months,
    -labels => \%labels,
  );

    [download]

    jdporter
    The 6th Rule of Perl Club is -- There is no Rule #6.

[reply]
[d/l]

Back to Seekers of Perl Wisdom