Question

I’m trying to set a parameter to be passed to the next page via the param function.

I’ve tried

param(-name=>'foo',-value=>'the value');
param(-name=>'fooz',-values=>['an','array','of','values']);
param('foo3', 1);

My script redirects to another which checks for all (param), but no luck. The CGI manpage implies this should “just work”. What am I doing wrong?

Thanks!

Answer 1

There are a few ways to do this.

1. Build your redirect URI with the help of the URI::QueryParam methods.

   use URI qw();
   use URI::QueryParam qw();
   
   my $q = CGI->new;
   my $u = URI->new($q->url);
   $u->query_param(foo => 'the value');
   $u->query_param_append(fooz => qw(an array of values));
   $u->query_param(foo3 => 1);
   $u->as_string   # expression returns serialised string
   

2. Save the state of the parameters to a file and then load the state of that file from the redirected page.

   my $query = CGI->new;
   $query->save(\*FILEHANDLE);
   my $q = CGI->new(\*INFILEHANDLE);
   

3. Do the redirect through JavaScript, though this will not let you change params.

   my $q = CGI->new;
   print $q->header();
   print "window.location=\"$url\";\n\n"
   

In my opinion, the first option I have listed above is the easiest to do.