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