Re^5: Perl CGI checkbox_group submit error

Try the example script from the docs ;

#!/usr/local/bin/perl -w
use CGI qw/:standard/;
print 
  header,
  start_html('Simple Script'),
  h1('Simple Script'),
  start_form,
  "What's your name? ",textfield('name'),p,
  "What's the combination?",
   checkbox_group(-name=>'words',
    -values=>['eenie','meenie','minie','moe'],
    -defaults=>['eenie','moe']),p,
  "What's your favorite color?",
   popup_menu(-name=>'color',
    -values=>['red','green','blue','chartreuse']),p,
   submit,
   end_form,
   hr,"\n";

if (param) {
  print 
  "Your name is ",em(param('name')),p,
  "The keywords are: ",em(join(", ",param('words'))),p,
  "Your favorite color is ",em(param('color')),".\n";
}
print end_html;
[download]

poj

Comment on Re^5: Perl CGI checkbox_group submit error Download Code

Replies are listed 'Best First'.
Re^6: Perl CGI checkbox_group submit error by begood321 (Novice) on Jul 16, 2013 at 12:59 UTC
Hi poj thanks for your reply, but I need to be able to submit an array of values eg. values=>\@array which does not currently work. It will work with -values=>'eenie','meenie','minie','moe', but the former is what I want because of the dynamic values been created in \@array. Any other ideas?	[reply]
Re^7: Perl CGI checkbox_group submit error by poj (Abbot) on Jul 16, 2013 at 13:27 UTC
Just work through one change at a time from the working script to the failing one. If it works with `-values=>['eenie','meenie','minie','moe'],` try it with `use CGI qw/:standard/; my @words = ('eenie','meenie','minie','moe'); print . . -values=>[@words],` [download] poj	[reply] [d/l] [select]