Line | |
---|
1 | #!/usr/local/bin/perl
|
---|
2 |
|
---|
3 | use CGI ':standard';
|
---|
4 |
|
---|
5 | print header;
|
---|
6 | print start_html('A Simple Example'),
|
---|
7 | h1('A Simple Example'),
|
---|
8 | start_form,
|
---|
9 | "What's your name? ",textfield('name'),
|
---|
10 | p,
|
---|
11 | "What's the combination?",
|
---|
12 | p,
|
---|
13 | checkbox_group(-name=>'words',
|
---|
14 | -values=>['eenie','meenie','minie','moe'],
|
---|
15 | -defaults=>['eenie','minie']),
|
---|
16 | p,
|
---|
17 | "What's your favorite color? ",
|
---|
18 | popup_menu(-name=>'color',
|
---|
19 | -values=>['red','green','blue','chartreuse']),
|
---|
20 | p,
|
---|
21 | submit,
|
---|
22 | end_form,
|
---|
23 | hr;
|
---|
24 |
|
---|
25 | if (param()) {
|
---|
26 | print
|
---|
27 | "Your name is: ",em(param('name')),
|
---|
28 | p,
|
---|
29 | "The keywords are: ",em(join(", ",param('words'))),
|
---|
30 | p,
|
---|
31 | "Your favorite color is: ",em(param('color')),
|
---|
32 | hr;
|
---|
33 | }
|
---|
34 | print a({href=>'../cgi_docs.html'},'Go to the documentation');
|
---|
35 | print end_html;
|
---|
36 |
|
---|
37 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.