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

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();

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