来源：

http://www.cnblogs.com/itech/archive/2012/09/23/2698595.html

http://www.cnblogs.com/itech/archive/2012/10/31/2748044.html

一  此cgi既是提交前的form，也被用来处理form的提交

来自：http://www.devdaily.com/perl/perl-cgi-example-scrolling-list-html-form

代码： （多选listbox-Multiple-choice SELECTs实例）
不带参数时即为form：http://xxxx/cgi/perl-cgi2.cgi 
当点击form的submit提交时，实际上相当于：http://xxxx/cgi/perl-cgi2.cgi?languages=c&languages=html，此时为对form的处理结果

 #!/usr/bin/perl -Tw

 #

 #  PROGRAM:    scrolling_list.cgi

 #

 #  PURPOSE:    Demonstrate (1) how to create a scrolling_list form and

 #        (2) how to determine the value(s) selected by the user.

 #

 #  Created by alvin alexander, devdaily.com.

 #

 #-----------------------------------#

 #  1. Create a new Perl CGI object  #

 #-----------------------------------#

 use CGI;

 $query = new CGI;

 #----------------------------------#

 #  2. Print the doctype statement  #

 #----------------------------------#

 print $query->header;

 #----------------------------------------------------#

 #  3. Start the HTML doc, and give the page a title  #

 #----------------------------------------------------#

 print $query->start_html('My scrolling_list.cgi program');

 #------------------------------------------------------------#

 #  4a.  If the program is called without any params, print   #

 #       the scrolling_list form.                             #

 #------------------------------------------------------------#

 if (!$query->param) {

     print $query->startform;

     print $query->h3('Select your favorite programming language(s):');

     print $query->scrolling_list(-name=>'languages',

                  -values=>[

                        'Basic',

                        'C',

                        'C++',

                        'Cobol',

                        'DHTML',

                        'Fortran',

                        'HTML',

                        'Korn Shell (Unix)',

                        'Perl',

                        'Java',

                        'JavaScript',

                        'Python',

                        'Ruby',

                        'Tcl/Tk'],

                  -size=>,

                  -multiple=>'true',

                  -default=>'Perl');

     # Notes:

     # ------

     #    "-multiple=>'true'" lets the user make multiple selections

     #        from the scrolling_list

     #    "-default" is optional

     #    "-size" lets you specify the number of visible rows in the list

     #    can also use an optional "-labels" parameter to let the user

     #        see labels you want them to see, while you use

     #        different names for each parameter in your program

     print $query->br;

     print $query->submit(-value=>'Submit your favorite language(s)');

     print $query->endform;

 } else {

     #----------------------------------------------------------#

     #  4b.  If the program is called with parameters, retrieve #

     #  the 'languages' parameter, assign it to an array        #

     #  named $languages, then print the array with each        #

     #  name separated by a <BR> tag.                           #

     #----------------------------------------------------------#

     print $query->h3('Your favorite languages are:');

     @languages = $query->param('languages');

     print "<BLOCKQUOTE>\n";

     foreach $language (@languages) {

         print "$language<BR>";

     }

     print "</BLOCKQUOTE>\n";

 }

 #--------------------------------------------------#

 #  5. After either case above, end the HTML page.  #

 #--------------------------------------------------#

 print $query->end_html;

二 也可以实现为html+perlcgi
代码：（多选checkbox实例）

 #colors.html

 <html><head><title>favorite colors</title></head>

 <body>

 <b>Pick a Color:</b><br>

 <form action="colors.cgi" method="POST">

 <input type="checkbox" name="red" value=> Red<br>

 <input type="checkbox" name="green" value=> Green<br>

 <input type="checkbox" name="blue" value=> Blue<br>

 <input type="checkbox" name="gold" value=> Gold<br>

 <input type="submit">

 </form>

 </body>

 </html>

 #colors.cgi

 #!/usr/bin/perl -wT

 use CGI qw(:standard);

 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

 print header;

 print start_html;

 my @colors = ("red", "green", "blue", "gold");

 foreach my $color (@colors) {

    if (param($color)) {

       print "You picked $color.<br>\n";

    }

 }

 print end_html;

其他实例radiobox

 #radiobox.html

 <html><head><title>Pick a Color</title></head>

 <body>

 <b>Pick a Color:</b><br>

 <form action="radiobox.cgi" method="POST">

 <input type="radio" name="color" value="red"> Red<br>

 <input type="radio" name="color" value="green"> Green<br>

 <input type="radio" name="color" value="blue"> Blue<br>

 <input type="radio" name="color" value="gold"> Gold<br>

 <input type="submit">

 </form>

 </body></html>

 #radiobox.cgi

 #!/usr/bin/perl -wT

 use strict;

 use CGI qw(:standard);

 use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

 my %colors = (  red     => "#ff0000",

                 green   => "#00ff00",

                 blue    => "#0000ff",

                 gold    => "#cccc00");

 print header;

 my $color = param('color');

 # do some validation - be sure they picked a valid color

 if (exists $colors{$color}) {

    print start_html(-title=>"Results", -bgcolor=>$color);

    print "You picked $color.<br>\n";

 } else {

    print start_html(-title=>"Results");

    print "You didn't pick a color! (You picked '$color')";

 }

 print end_html;

三 cgi实例2

 #!/usr/bin/perl

  use strict;

  use warnings;

  use CGI;

  use CGI::Carp qw(fatalsToBrowser);

  sub output_top($);

  sub output_end($);

  sub display_results($);

  sub output_form($);

  my $q = new CGI;

  print $q->header();

  # Output stylesheet, heading etc

  output_top($q);

  if ($q->param()) {

      # Parameters are defined, therefore the form has been submitted

      display_results($q);

  } else {

      # We're here for the first time, display the form

      output_form($q);

  }

  # Output footer and end html

  output_end($q);

  exit ;

  # Outputs the start html tag, stylesheet and heading

  sub output_top($) {

      my ($q) = @_;

      print $q->start_html(

          -title => 'A Questionaire',

          -bgcolor => 'white',

  }

  # Outputs a footer line and end html tags

  sub output_end($) {

      my ($q) = @_;

      print $q->div("My Web Form");

      print $q->end_html;

  }

  # Displays the results of the form

  sub display_results($) {

      my ($q) = @_;

      my $username = $q->param('user_name');

      print $username;

      print $q->br;

  # Outputs a web form

  sub output_form($) {

      my ($q) = @_;

      print $q->start_form(

          -name => 'main',

          -method => 'POST',

      );

      print $q->start_table;

      print $q->Tr(

        $q->td('Name:'),

        $q->td(

          $q->textfield(-name => "user_name", -size => )

        )

      );

      print $q->Tr(

        $q->td($q->submit(-value => 'Submit')),

        $q->td('&nbsp;')

      );

      print $q->end_table;

      print $q->end_form;

  }

更多实例
http://www.cgi101.com/book/ch5/text.html 
http://www.comp.leeds.ac.uk/Perl/Cgi/forms.html

四 cgi实例3

 #!/usr/local/bin/perl

         use CGI ':standard';

         print header;

         print start_html("Example CGI.pm Form");

         print "<h1> Example CGI.pm Form</h1>\n";

         print_prompt();

         do_work();

         print_tail();

         print end_html;

         sub print_prompt {

            print start_form;

            print "<em>What's your name?</em><br>";

            print textfield('name');

            print checkbox('Not my real name');

            print "<p><em>Where can you find English Sparrows?</em><br>";

            print checkbox_group(

                                  -name=>'Sparrow locations',

                                  -values=>[England,France,Spain,Asia,Hoboken],

                                  -linebreak=>'yes',

                                  -defaults=>[England,Asia]);

            print "<p><em>How far can they fly?</em><br>",

                 radio_group(

                         -name=>'how far',

                         -values=>['10 ft','1 mile','10 miles','real far'],

                         -default=>'1 mile');

            print "<p><em>What's your favorite color?</em>  ";

            print popup_menu(-name=>'Color',

                                     -values=>['black','brown','red','yellow'],

                                     -default=>'red');

            print hidden('Reference','Monty Python and the Holy Grail');

            print "<p><em>What have you got there?</em><br>";

            print scrolling_list(

                          -name=>'possessions',

                          -values=>['A Coconut','A Grail','An Icon',

                                    'A Sword','A Ticket'],

                          -size=>,

                          -multiple=>'true');

            print "<p><em>Any parting comments?</em><br>";

            print textarea(-name=>'Comments',

                                   -rows=>,

                                   -columns=>);

            print "<p>",reset;

            print submit('Action','Shout');

            print submit('Action','Scream');

            print end_form;

            print "<hr>\n";

         }

         sub do_work {

            print "<h2>Here are the current settings in this form</h2>";

            for my $key (param) {

               print "<strong>$key</strong> -> ";

               my @values = param($key);

               print join(", ",@values),"<br>\n";

           }

         }

         sub print_tail {

            print <<END;

         <hr>

         <address>Lincoln D. Stein</address><br>

         <a href="/">Home Page</a>

         END

         }

具体的更多的form(checkbox,check_group,radio_group,popup_menu,hidden,scrolling_list,textarea.......)， 在manpage search：  http://search.cpan.org/~markstos/CGI.pm-3.60/lib/CGI.pm

perl-cgi-form的更多相关文章

  1. Perl CGI编程

    http://www.runoob.com/perl/perl-cgi-programming.html 什么是CGI CGI 目前由NCSA维护,NCSA定义CGI如下: CGI(Common Ga ...

  2. 《Apache服务之php/perl/cgi语言的支持》RHEL6——服务的优先级

    安装php软件包: 安装文本浏览器 安装apache的帮助文档: 测试下是否ok 启动Apache服务关闭火墙: 编辑一个php测试页测试下: perl语言包默认系统已经安装了,直接测试下: Apac ...

  3. Perl &amp; Python编写CGI

    近期偶然玩了一下CGI,收集点资料写篇在这里留档. 如今想做HTTP Cache回归測试了,为了模拟不同的响应头及数据大小.就须要一个CGI按须要传回指定的响应头和内容.这是从老外的測试页面学习到的经 ...

  4. 转：perl源码审计

    转:http://www.cgisecurity.com/lib/sips.html Security Issues in Perl Scripts By Jordan Dimov (jdimov@c ...

  5. 25-Perl CGI编程

    1.Perl CGI编程什么是CGICGI 目前由NCSA维护,NCSA定义CGI如下:CGI(Common Gateway Interface),通用网关接口,它是一段程序,运行在服务器上如:HTT ...

  6. 第25章 项目6：使用CGI进行远程编辑

    初次实现 25-1 simple_edit.cgi --简单的网页编辑器 #!D:\Program Files\python27\python.exeimport cgiform = cgi.Fiel ...

  7. cgi创建web应用(一)之传递表单数据与返回html

    主旨: 0.环境说明 1.创建一个cgi本地服务 2.创建一个html表单页 3.创建一个对应的cgi 脚本文件 4.运行调试 0.环境说明: 系统:win7 32位家庭版 python:2.7 代码 ...

  8. 【转】Perl Unicode全攻略

    Perl Unicode全攻略 耐心看完本文,相信你今后在unicode处理上不会再有什么问题. 本文内容适用于perl 5.8及其以上版本. perl internal form 在Perl看来, ...

  9. Perl的调试方法

    来源: http://my.oschina.net/alphajay/blog/52172 http://www.cnblogs.com/baiyanhuang/archive/2009/11/09/ ...

  10. linux上通过lighttpd上跑一个C语言的CGI小页面以及所遇到的坑

    Common Gateway Interface如雷贯耳,遗憾的是一直以来都没玩过CGI,今天尝试一把.Tomcat可以是玩CGI的,但得改下配置.为了方便,直接使用一款更轻量级的web服务器ligh ...

随机推荐

  1. L2-007. 家庭房产

    L2-007. 家庭房产 题目链接:https://www.patest.cn/contests/gplt/L2-007 并查集 初学,看这题的时候完全没有什么好的想法,参考了@yinzm的blog用 ...

  2. 网站常用js代码搜集

    1.若是手机端打开,则跳转到手机页面 <script language="javascript"> if(navigator.userAgent.match(/(iPh ...

  3. 2016年团体程序设计天梯赛-决赛 L2-3. 互评成绩（25）

    学生互评作业的简单规则是这样定的:每个人的作业会被k个同学评审,得到k个成绩.系统需要去掉一个最高分和一个最低分,将剩下的分数取平均,就得到这个学生的最后成绩.本题就要求你编写这个互评系统的算分模块. ...

  4. hibernate与spring整合实现transaction

    实现transaction时出现了大大小小的问题,这里会一一详解. 先贴出applicationContext.xml <?xml version="1.0" encodin ...

  5. Sun jdk, Openjdk, Icedtea jdk关系

    转自: http://blog.chinaunix.net/uid-20648944-id-3204527.html Sun jdk与Openjdk版本发展历史如下图所示: 1.    Openjdk ...

  6. Amazon EC2 的名词解释

    Amazon EC2   Amazon Elastic Compute Cloud (Amazon EC2) Amazon EC2 提供以下功能: 实例:虚拟计算环境 实例预配置模板/Amazon 系 ...

  7. POJ 2054 Color a Tree#贪心（难，好题）

    题目链接 代码借鉴此博:http://www.cnblogs.com/vongang/archive/2011/08/19/2146070.html 其中关于max{c[fa]/t[fa]}贪心原则, ...

  8. Java 泛型 泛型代码和虚拟机

    Java 泛型 泛型代码和虚拟机 @author ixenos 类型擦除.原始类型.给JVM的指令.桥方法.Java泛型转换的事实 l  类型擦除(type erasure) n  Java泛型的处理 ...

  9. 使用Angular构建单页面应用(SPA)

    什么是SPA?看下图就是SPA: 下面说正经的,个人理解SPA就是整个应用只有一个页面,所有的交互都在一个页面完成,不需要在页面之间跳转. 单页面的好处是更快的响应速度,更流畅的用户体验,甚至和桌面应 ...

  10. 13.hibernate的native sql查询（转自xiaoluo501395377）

    hibernate的native sql查询   在我们的hibernate中,除了我们常用的HQL查询以外,还非常好的支持了原生的SQL查询,那么我们既然使用了hibernate,为什么不都采用hi ...