> using the Perl4 cgi-lib.pl. However, I can think of no other
> legitimate use. Here's a nice,
> clean method of dealing with this:
>
> use strict;
> use CGI qw/:standard/;
> my %form_data = map { $_, get_data($_) } param;
>
> sub get_data
> {
> my $name = shift;
> my @values = param( $name );
> return @values > 1
> ? \@values
> : $values[0];
> }
That worked, thanks, but seemed to be 1/100th of a second slower than the other
method, which became distilled down to the following line, eliminating the
previous multiline and sub I was using:
$form_data{$_} = param($_) for (param());
Iterates over the form name/value pairs in param() and places them into
%form_data.
/g
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
