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

I'm using CGI.pm and i want to pass a hash to the popup_menu function so it will create all my select fields.

On perldoc it says the following: 
%labels = ('eenie'=>'your first choice',
      'meenie'=>'your second choice',
      'minie'=>'your third choice');

print $query->popup_menu(-name=>'menu_name',
    -values=>['eenie','meenie','minie'],
        -default=>'meenie',
        -labels=>\%labels);

[download]
I don't want to have to type in the all the values manually though. Could someone tell me how to pass the hash keys for the values? The same as is done for the -labels? \%labels for the values field passes the hash values.

edited: Fri Mar 14 23:31:30 2003 by jeffa - code tags

Replies are listed 'Best First'.
Re: cgi.pm: popup_menu
by crenz (Priest) on Mar 14, 2003 at 19:24 UTC

    keys %labels should do the trick.

[reply]

      the -labels attribute expects an array reference, not a list, so that should instead be -labels => [ keys %labels ]

      the [ ] around the keys %labels makes it an anonymous array, which is a reference to an array with no name.

      HTH

      If not P, what? Q maybe?
      "Sidney Morgenbesser"

[reply]
[d/l]
[select]
      its not working though, and when i do this

      my @temp = keys %labels;
      my $temp2;
      foreach(@temp) {
      $temp2.="'$_'";
      $temp2.=",";
      }
      chop $temp2;

      print $q->popup_menu(-name=>'menu_name', -values=>$temp2, -default => $q->param('product'), -labels=>%labels);

      It just prints $temp2 as one value.
[reply]
[reply]

Back to Seekers of Perl Wisdom