in reply to How to cycle through CGI query params?

or... 
my %var = $query->Vars;

for my $param (keys %var) {
    my $param_value = $var{$param};
}

[download]
and it works just as well if you assign to a hashref rather than a hash.

Replies are listed 'Best First'.
Re^2: How to cycle through CGI query params?
by ikegami (Patriarch) on Oct 25, 2006 at 02:58 UTC

    That doesn't display all the parameters, and gives the wrong value for some parameters. Fix: 

    my %var = $query->Vars;
foreach my $param (keys %var) {
   foreach my $value (split /\0/, $var{$param}) {
      ...
   }
}

    [download]
[reply]
[d/l]
Re^2: How to cycle through CGI query params?
by pKai (Priest) on Oct 25, 2006 at 21:07 UTC
    and it works just as well if you assign to a hashref rather than a hash.

    There is a difference in the return value of Vars().
    If you request a hash this is obviously a copy of the param hash of the CGI object.
    If you request a a scalar you'll get a hashref, which is a variable tied to the CGI object, where the STORE/FETCH are implemented via the param() method of the CGI object.

    The latter has some implications if you ever decide to assign to that hashref. Since the FETCH is implemented with a join("\0", $cgi->param('x')); (for cgilib compatible multi-value parameter handling), assigning refs to the hashref will lead to confusing results (due to the forced stringification on reading):

    use CGI;
use Data::Dumper;
use strict;

my $q = CGI->new;

$q->param('form', 1 .. 5);

my $h = $q->Vars();

$h->{'form'} = [ 4 .. 6 ];

print Dumper($h, $q);

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom