如何在相同的網頁上顯示Perl腳本表單結果？

Question

我正在寫一個簡單的骰子滾輪，我想將三個表單域傳遞給一個Perl腳本，將它們緊縮，然後將結果返回到同一頁面。除了相同的頁面要求，我有一切工作。

這可能嗎？

Answer 1

在您的Perl程序中創建一個AJAX調用（使用JS）。

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

使您的AJAX處理程序根據返回的JSON數據對頁面進行更改。

如果你放棄「同一頁面」的要求，那麼以前的答案將起作用（注意那些答案不是「同一頁」，它們只是看起來像相同的頁面）。這很可能是實現您的目標的最簡單方法，但要使用它，您必須刪除「相同頁面」要求。

Answer 2

是的。簡化：如果參數存在，則執行處理，否則顯示包含字段的頁面。

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

Answer 3

當然可以。這裏是一個表單域的框架代碼。

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

注意，顯示當（可能不完整）的形式，它通常是好主意，包括已經給字段，以便用戶不必重新輸入。