Question

我正在编写一个简单的骰子滚轴，我想将三个表单字段传递给Perl脚本，将它们压缩，然后将结果返回到同一页面。除了相同的页面要求外，我一切正常。

这可能吗？

Answer 1

不确定。这是具有一个表单字段的框架代码。

use strict;
use warnings;
use CGI;

my $cgi = CGI->new;
my $my_param = $cgi->param('my_param');

print $cgi->header();
print $cgi->html_start();
if (param_valid($my_param)) {
    # process params and show result
    do_something($my_param);
} else {
    # display the form
    show_form($my_param);
}

print $cgi->html_end();

请注意，在显示（可能不完整）表单时，通常最好包含已经给定的字段，以便用户不必重新键入它们。

Answer 2

是。简化：如果存在参数，则进行处理，如果不存在，则显示包含字段的页面。

 if ($q->param('field1')) {
    # Process params
 } else {
    # display fields in a form
 }

Answer 3

对你的Perl程序进行AJAX调用（在JS中）。

让你的Perl程序很好地返回结果（例如JSON）。

让您的AJAX处理程序根据返回的JSON数据对页面进行更改。

如果您删除“相同页面”要求，则之前的答案将有效（请注意，这些答案不是“相同页面”，它们只是看起来像同一页面）。这很可能是实现目标的最简单方法，但要使用它，您必须删除“相同页面”的要求。

如何将Perl脚本表单结果显示到同一网页？

3 个答案: