Perl 中如何使用 CGI.pm 模块？

推荐答案

在 Perl 中使用 CGI.pm 模块可以方便地处理 CGI 请求和生成 HTML 内容。以下是一个简单的示例，展示了如何使用 CGI.pm 模块来处理表单提交并生成响应页面。

// www.javascriptcn.com code example
use strict;
use warnings;
use CGI;

# 创建一个 CGI 对象
my $cgi = CGI->new;

# 获取表单数据
my $name = $cgi->param('name') || 'Guest';

# 生成 HTML 响应
print $cgi->header('text/html');
print $cgi->start_html('Hello Page');
print $cgi->h1("Hello, $name!");
print $cgi->end_html;

本题详细解读

1. 引入 CGI.pm 模块

首先，需要在脚本中引入 CGI.pm 模块。通过 use CGI; 语句，Perl 会加载 CGI.pm 模块，并使其功能可用。

2. 创建 CGI 对象

使用 CGI->new 创建一个 CGI 对象。这个对象将用于处理 CGI 请求和生成响应。

my $cgi = CGI->new;

3. 获取表单数据

通过 param 方法可以获取表单提交的数据。例如，$cgi->param('name') 会返回名为 name 的表单字段的值。如果该字段不存在，则返回 undef，因此可以使用 || 操作符提供一个默认值。

my $name = $cgi->param('name') || 'Guest';

4. 生成 HTML 响应

使用 CGI.pm 提供的方法可以方便地生成 HTML 内容。header 方法用于生成 HTTP 响应头，start_html 方法生成 HTML 文档的开头部分，h1 方法生成一个 <h1> 标签，end_html 方法生成 HTML 文档的结尾部分。

print $cgi->header('text/html');
print $cgi->start_html('Hello Page');
print $cgi->h1("Hello, $name!");
print $cgi->end_html;

5. 运行脚本

将上述代码保存为一个 .pl 文件，并放置在 CGI 可执行的目录中。通过浏览器访问该脚本的 URL，即可看到生成的 HTML 页面。

6. 其他功能

CGI.pm 还提供了许多其他功能，如处理文件上传、设置和读取 Cookie、生成表单元素等。可以通过查阅 CGI.pm 的文档来了解更多详细信息。