Невозможно установить параметр с помощью Perl CGI-> param()

Question

Я пытаюсь установить параметр, который будет передан на следующую страницу с помощью функции param.

Я пытался

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

Мой скрипт перенаправляет на другой, который проверяет наличие всех (парам), но не повезло. CGI manpage подразумевает, что это должно «просто работать». Что я делаю не так?

Спасибо!

Answer 1

Есть несколько способов сделать это.

1. Создайте свой URI перенаправления с помощью методов URI::QueryParam.

   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 параметров в файл, а затем загрузить состояние этого файла из перенаправлены страниц.

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

3. ли редирект через JavaScript, хотя это не позволит вам изменить Params.

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

На мой взгляд, первый вариант я перечислил выше, проще всего сделать.

Answer 2

Вам необходимо использовать self_url method.

$cgi->param(-name=>'foo',-value=>'the value'); 
$cgi->param(-name=>'fooz',-values=>['an','array','of','values']); 
$cgi->param('foo3', 1); 
printf '<a href="%s">next page</a>', $cgi->self_url; 

Это становится f.ex. <a href="http://localhost:5000/foo.pl?foo=the%20value;fooz=an;fooz=array;fooz=of;fooz=values;foo3=1">next page</a>.