getform.pl

来自「SconeServer is a modular, object-orienta」· PL 代码 · 共 28 行

#!/usr/bin/perl

use CGI qw/:standard/;

print header,
  start_html('A Simple Example'),
  h1('A Simple Example'),
  start_form(-method=>'GET'),
  "What's your name? ",textfield('name'),p,
  "What's the combination?", p,
  checkbox_group(-name=>'words',
                 -values=>['eenie','meenie','minie','moe'],
                 -defaults=>['eenie','minie']), p,
  "What's your favorite color? ",
  popup_menu(-name=>'color',
             -values=>['red','green','blue','chartreuse']),p,
  submit,
  end_form,
  hr;

if (param()) {
  print "Your name is ",em(param('name')),p,
  "The keywords are: ",em(join(", ",param('words'))),p,
  "Your favorite color is ",em(param('color')),
  hr;
}