Question

我遇到了一个有趣的问题。

我编写了一个调用一些显示HTML的子程序的Perl脚本。子例程还包含表单标记。

我目前有三个输入type="submit"按钮，我将它们都设置为name="submitbtn"。我通过说

来区分它们

if ($cgi->param('submitbtn') eq 'value')

我调用我的第一个子程序，显示HTML，用户输入信息并按Save（提交按钮）。

调用另一个子例程并显示HTML。我允许用户按Return（调用子例程的提交按钮并转到另一个HTML页面）或Continue（调用另一个子例程的提交按钮将所有内容提交到数据库）。

当我按下任一提交按钮时，我的CGI参数会被“重置”。我似乎无法弄清楚如何传递我的原始参数。

我说

my $cgi = CGI->new;
my %form = $cgi->Vars;

我试过

sub(%form);

和这种性质的东西，但没有骰子。我对Perl很新。谢谢你的帮助。