perlquestion
hakkr
<b>Acolyte- one by one into separate vars</b> <CODE>
$email=$q->param(email);
$name=$q->param(name);</CODE>
<b>Monk - all at once into hash ref</b><CODE>
my $sr;
foreach my $str qw(email name) {
$sr->{$str}=$q->param($str);
}
</CODE>
<b> Friar- don't have to enter param names</b><CODE>
my @names=$q->param;
foreach my $str (@names) {
$sr->{$str} =$q->param($str);
}
</CODE>
The friar code above does not work for multivalued params. so I have to do @multivalues=$q->param('selectboxvalues') whenever I use mulitple select boxes or checkboxes. I'm thinking of refining this further using a ref test to handle multiple values. <CODE>
my @names=$q->param;
foreach my $str (@names) {
if (ref($str) eq "ARRAY") {
my @multi=$q->param($str);
sr->{$str} =\@multi;
}else {
$sr->{$str} =$q->param($str);}
}
}
</CODE>
What does the saint code for this look like ?