Perl 中的隐藏字段操作

Question

我正在尝试用 perl 编写一个多问题调查，每次显示一个问题，并带有“上一个”和“下一个”按钮。最终我需要从文件中读取问题，但我还没有做到这一点，所以我现在正在对它们进行硬编码。

作业要求的一部分是我必须使用CGI，所以我不能直接打印任何html。

目前，我的脚本打印出第一个问题，以及两个提交按钮，一个标记为“下一个”，另一个标记为“上一个”。

print $form->submit(-name=>'问题', -value=>'下一个');
print $form->submit(-name=>'question', -value=>'previous');

我还有一个隐藏字段：

print $form->; hidden(-name=>'hidden', -value=> $currentQ);

我的想法是，一旦单击了下一个，我将增加（或减少，如果单击了上一个）$currentQ，以便脚本知道是关于哪个问题的。

我遇到的问题是按下按钮后操纵隐藏字段。我有：

my $direction = $form->param( 'question' ) || '';
if ($direction eq '下一个'){ $当前Q++； }

以及打印 $currentQ 的打印语句。换句话说，每次我单击“下一步”时，它应该打印一个更高的数字，但它所做的只是保持在 1（这只是为了测试功能，一旦它起作用，我就必须弄清楚如何实际实现它，以便它会打印出正确的问题）。

希望这个描述有意义，但如果您需要更多详细信息，请告诉我。我真的很困惑，所以非常感谢任何帮助，提前致谢！

Answer 1

你有一个不一致的地方；您将隐藏字段命名为“hidden”，但从参数“question”中获取值。我不知道这是否存在于您的实际代码中。

使用 CGI 的一个问题是传递给输入字段生成方法的值只是一个默认值；请求中提供的值优先：

use CGI;
$form = CGI->new("hidden=41");
print $form->hidden(-name=>'hidden', -value=>42);

prints

<input type="hidden" name="hidden" value="41"  />

要更改此设置，您需要提供 -override 参数：

print $form->hidden(-name=>'hidden', -value=>42, -override=>1);

或更改参数的存储值：

$form->param('hidden',42);
print $form->hidden(-name=>'hidden', -value=>42);

确保在调用隐藏函数之前执行“if next，increment”逻辑生成html的方法。