Perl 中 CGI 模块的用法？

推荐答案

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

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

# 获取 GET 或 POST 请求中的参数
my $name = $cgi->param('name');

# 输出 HTML 内容
print $cgi->header('text/html');
print $cgi->start_html('Hello World');
print $cgi->h1("Hello, $name!");
print $cgi->end_html;

本题详细解读

CGI 模块简介

CGI（Common Gateway Interface）模块是 Perl 中用于处理 Web 请求和生成 HTML 内容的常用模块。它可以帮助开发者轻松处理表单数据、生成动态网页内容等。

创建 CGI 对象

my $cgi = CGI->new;

通过 CGI->new 创建一个 CGI 对象，该对象可以用于处理 HTTP 请求和生成响应。

获取请求参数

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

使用 param 方法可以获取 GET 或 POST 请求中的参数。param 方法接受一个参数名作为输入，并返回对应的值。

输出 HTML 内容

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

• header 方法用于设置 HTTP 响应头，text/html 表示返回的内容类型为 HTML。
• start_html 方法生成 HTML 文档的开头部分，参数为页面标题。
• h1 方法生成一个 <h1> 标签，内容为 "Hello, $name!"。
• end_html 方法生成 HTML 文档的结束部分。

其他常用方法

• url_param: 获取 URL 中的参数。
• cookie: 处理 HTTP Cookie。
• redirect: 重定向到另一个 URL。

通过这些方法，开发者可以轻松处理 Web 请求并生成动态内容。