amulcahy has asked for the wisdom of the Perl Monks concerning the following question:
New to Perl so be nice to me:
My 'while' loop creates a comma-delimited string ($str) like:
'Date','Forename','Middle','School'
I want to create a checkbox_group for this array to have a checkbox for each entry. The code I have creates one checkbox and the entire array is after it. i.e. checkbox 'Date','Forename','Middle','School'while (<>) { if ($str eq "") { $str = "'" . substr($line,0,$x) . "'"; } else { $str = $str . "," . "'" . substr($line,0,$x) . "'"; } }
If I change the code from@array = ($str); print $query->start_multipart_form("POST","printFields"); print $query->checkbox_group(-name=>'FieldNames', -value=>[ @array ]); print $query->submit('doWhat','Print Fields'); print $query->end_form;
to@array = ($str);
it works the way I want it to. i.e. checkbox Date checkbox Forename checkbox Middle checkbox School. What am I doing wrong? Any ideas? AM@array = ('Date','Forename','Middle','School');
|
---|
Back to
Seekers of Perl Wisdom