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