in reply to Re: Saving parameters before sending to 3rd party
in thread Saving parameters before sending to 3rd party

In spirit of permitting multiple values to the same parameter name, change the query builder I provided to this new one: 

my $query = join(';',
   map {
      my $k = shift @$_;
      join(';', map { uri_escape($k) . '=' . uri_escape($_) } @$_)
   }
   map { [$_, $CGI->param($_)] } $CGI->param()
);

[download]

Replies are listed 'Best First'.
Re: Re^2: Saving parameters before sending to 3rd party
by Anonymous Monk on Mar 02, 2004 at 23:23 UTC
    You could also do:

    my $query = join(';',
   map {
      my $k = $_;
      join(';', map {
         uri_escape($k) . '=' . uri_escape($_)
      } $CGI->param($_))
   } $CGI->param()
);

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom