Passing arrays to a CGI

[arturo]

OK, I'm stumped, and I can't figure out how to do this *easily* from the CGI.pm documentation.

The problem: I want to get a variable-length list of data from an HTML form where I don't know in advance what the data's going to be. That is, while I know each element is going to be a string, I can't predict in advance what those strings will be and how many of them there will be. in PHP (make the sign of the cross if you have to), The HTML would look like this:

<input type='checkbox' name='location[]' value='$string'> ...

(imagine several of these) and when the form is submitted, the variable $location would be an array whose elements are the various strings that were submitted.

Can I do something similarly easy in Perl, or am I going to have to resort to some kind of trickery in the script that generates the HTML form?

Philosophy can be made out of anything -- or less

[Fastolfe]

CGI.pm already does this in a fashion:

<input name='form_item' value='one'>
<input name='form_item' value='two'>
<input name='form_item' value='three'>

And the resulting Perl:

my $q = new CGI;
print join(",", $q->param('form_item'));  # one,two,three

In cases where more than one form element uses the same name, CGI.pm will return them as an array, if you call the param method in a list context. Is this what you meant?

[arturo]

Gah! I shoulda known it was that simple. I think the comments in the CGI.pm documentation say this (now that you point it out), but they say it a little cryptically =) Thanks!

Philosophy can be made out of anything -- or less

[Ovid]

If I understand your question correctly, something like the following may be what you're looking for:

#!/usr/bin/perl -Tw

use strict;
use CGI;
my $query = new CGI;
my @keys  = $query->param;

my %data;

# Do NOT use this code.  It is very insecure and for illustration purp
+oses only!
# Individual elements are untainted and may be dangerous!

for (@keys) {
    $data{$_} = $query->param($_);
}

The %data hash will the contain all of the name/value pairs from the forms. With the complete hash, you can manipulate the data at will.

If, for some reason, you have more than one value for a name, the hash will contain (if I recall correctly) a reference to an array for that name with the elements of the array being the values.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just go the the link and check out our stats.

[elwarren]

From the cgi.pm docs:
FETCHING THE VALUE OR VALUES OF A SINGLE NAMED PARAMETER:

    @values = $query->param('foo');

              -or-

    $value = $query->param('foo');

Pass the param() method a single argument to fetch the value of the named parameter. If the parameter is multivalued (e.g. from multiple selections in a scrolling list), you can ask to receive an array. Otherwise the method will return a single value.

HTH