如何将多个请求中传递的参数存储到同一个 CGI？

Question

我有两个不同的 Perl CGI，如下所示，它们创建了两个 HTML。

tes1.pl 是从 test.html 调用，作为带有参数的 POST 调用。
test2.pl 将从 test1.pl 中调用。但问题出在这里，test2.pl 中有一个指向 test1.pl 的链接。
所以。单击链接时，所有 POST 参数都将消失，因为它在不同的上下文中运行。
有人可以告诉我如何解决这种情况吗？

test.html:

<form id = "test" action ="./tes1.pl" method="POST" target="_blank">
  <input type="hidden" id='param_sender' name="param1" value="">
 </form>
 <a onclick="setValue();document.getElementById('test').submit();">SEND THE VALUE</td></tr>

test1.pl：

use CGI;
$page=CGI::new();
my $method=$page->request_method;
if ($method eq "POST") {
  my $gpmsc_user=$page->param('param1');
}
print $page->header,
"<link rel='stylesheet' href='./test.css' type='text/css'>";
print $page->start_html(-title=>"TEST1");

test2.pl

my $page= new CGI();
print $page->header,
"<link rel='stylesheet' href='./test.css' type='text/css'>";
print $page->start_html(-title=>'TEST2');
print $page->startform(-method=>post,-action=>'test3.pl');
print $page->append,
"<table border=true>
 <tr class=amhead>
  <td colspan=3>
  <br><a href='test1.pl'>Return to Test1</a>
  </td>
 </tr>..."

Answer 1

您没有两个相互调用的 CGI 程序。您有几个输出 HTML 表单的 Perl 程序。因此，如果您希望一个表单在表单中具有相同的参数，则必须以将值设置为这些输入的默认值的方式创建 HTML。

使用现已弃用的 CGI 功能，

use CGI qw(:html :form);

my $cgi = CGI->new( 'veggie=tomato' ); # from first form

my $field = 'veggie';
my $value = $cgi->param(
    -name  => $field,
    );

print textfield(  # create second form
    -name    => $field,
    -default => $value,
    );

这个输出：

<input type="text" name="veggie" value="tomato" />

但是，正如 CGI 文档所指出的，这些 HTML 生成器已被弃用，不应使用。文档列出了一些替代方案。