perl-cgi-form2

代码：

 

        # !/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=> 5,
                         -multiple=> ' true ');

            print  " <p><em>Any parting comments?</em><br> ";
            print textarea(-name=> ' Comments ',
                                  -rows=> 10,
                                  -columns=> 50);

            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

 

完！