Perl CGI模块
[*]导入使用CGI模块
[*]文本网页
[*]文本输入框
[*]多选项选择
[*]提交按钮
[*]字体设定
[*]字体颜色设定
一、导入使用CGI模块
第一、use CGI
引用函数需要使用
my $query = CGI->new;
print $query->XXX.
第二、use CGI qw/:standard/;
引用函数可直接使用
print XXX.
二、文本网页
#!/usr/local/bin/perl
use CGI qw/:standard/;
print header,
print startform();
start_html('hello world'),
h1('hello world'),
print endform();
end_html;
#!/usr/local/bin/perl
指定perl解释器所在位置
use CGI qw/:standard/;
使用第二种方法加载CGI模块
print header,
创建http header
print startform();
开启表单
start_html('hello world'),
开启html设定网页框显示为hello world（可修改）
h1('hello world'),
设定网页显示hello world（可修改）
print endform();
结束表单
end_html;
关闭html
三、文本输入框
print textfield(
-name=>'field_name',
-default=>'starting value',
-size=>50,
-maxlength=>80);
print textfield(
开启文本输入框
-name=>'field_name',
设定此输入框名称,后期可通过param函数获取输入的值
-default=>'starting value',
不输入值的情况下,默认的值
-size=>50,
文本框宽度
-maxlength=>80);
输入字符限制
四、多选项选择
print radio_group(
-name=>'group_name',
-values=>['access','error','request'],
-default=>'access',
-linebreak=>'true');
print radio_group(
开启多选项选择
-name=>'group_name',
设定此选项名称,后期可通过param函数获取输入的值
-values=>['access','error','request'],
多选项的值,access、error、request可增可减可改变
-default=>'access',
不选择值的情况下,默认选择的值
-linebreak=>'true');
为true竖排对其
五、提交按钮
print submit(-name=>'OK');
print submit(-name=>'OK');
设定按钮显示文字
六、字体设定
print h1('svnlog Inquiry');
print h2('svnlog Inquiry');
print h3('svnlog Inquiry');
print h4('svnlog Inquiry');
可通过调整h后边的值来确定字体大小,数值越大字体越小
七、字体颜色设定
print h1({-style=>'Color: red;'},'svnlog Inquiry');
print h2({-style=>'Color: yellow;'},'svnlog Inquiry');
可以通过style参数更换不同颜色
更多效果请移步至CGI自述
http://search.cpan.org/~markstos/CGI.pm-3.63/lib/CGI.pm
页:
[1]