First Perl CGI Example

最新推荐文章于 2025-08-02 10:30:32 发布

EricYeung

最新推荐文章于 2025-08-02 10:30:32 发布

阅读量1.3k

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl 文章标签： cgi perl header menu join html

本文链接：https://blog.youkuaiyun.com/EricYeung/article/details/606449

Perl 专栏收录该内容

19 篇文章

订阅专栏

本文介绍了一个简单的 CGI 程序示例，使用 Perl 编写，展示了如何收集并显示用户输入的数据，包括姓名、关键词组合及喜爱的颜色。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!c:/Perl/bin/Perl.exe

use strict;
use CGI qw(:standard);

print header,
    start_html('a simple cgi'),
    h1('a simple example'),
    start_form,
    "what's you name?", textfield('name'),
    p,
    "what's the combination?",
    p,
    checkbox_group(-name=>'words',
        -values=>['eenie', 'meenie', 'mimie', 'moe'],
        -defaults=>['eenie', 'mimie']),
    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 keyword are :", em(join(", ", param('words'))),
    p,
    "Your favorite color is ", em(param('color')),
    hr;
}