Re: Re: form parsing

[merlyn]

my %input = map { $_->$cgi->param($_) } $cgi->param();

can be written as:

my %input = map { $_ => scalar $cgi->param($_) } $cgi->param();

to fix the possible "multiple value" problem, for some version of "fix". (Your arrow was wrong, by the way.)

foreach my $key (keys %input) { 
 $input{$key} =~ tr/*//d; 
 # or whatever makes sense 
}

can be written as:

tr/*//d for values %input;

for recent versions of Perl.

-- Randal L. Schwartz, Perl hacker