Perl/CGI表单提交示例

以下,并且在提交后,在两个提交的整数上执行添加。

下面的Perl/CGI表单示例,将要求用户输入两个整数,然后计算两个数之和。

在HTML表单中,以下面的格式创建 post方法:

<form action="/cgi-bin/perl-cgi-form.cgi" enctype="multipart/form-data" method="post">
<input name="num1">
<input name="num2">
<input type="submit">
</form>

将以下Perl-CGI-Form.CGI代码保存到/usr/lib/cgi-bin /:

#!/usr/bin/perl -T 
use strict; 
use CGI qw/:standard/; 
print header, 
start_html('Perl/CGI form example'), 
start_form, 
	"Integer 1: ",textfield('num1'), 
	br, 
	"Integer 2: ",textfield('num2'), 
	br, 
	submit, 
end_form, 
hr; 

print param('num1')+param('num2'), 
	p, 
	end_html; 
exit;

使它可执行文件:

# chmod 755 /usr/lib/cgi-bin/perl-cgi-form.cgi

浏览器打开:
http://localhost/cgi-bin/form.cgi

日期:2020-07-07 20:54:58 来源:oir作者:oir