perl - CGI Perl Echo 返回 POSTed application/x-www-form-urlencoded 内容

Question

我需要一个简单的基于 CGI 的 Perl 脚本来接收 POST（直接，而不是来自另一个 HTML 页面），其中 Content-Type 为 application/x-www-form-urlencoded 并回显

我收到：（编码字符串）

（如果可能的话）解码，字符串是：（解码字符串）

我是 CGI Perl 的新手，这是测试产品的一次性请求（我是系统管理员。不是程序员）。我打算在未来更深入地学习 Perl，但在这种情况下，我希望给我一个机会。

Answer 1

首先，我将快速浏览一些基础知识。

以下是 PERL/CGI 应用程序包：

use CGI;

创建 CGI 对象：

my $web = CGI->new;

在将任何 CGI 数据刷新到外流之前，请确保您设置并将 HTTP 标头写入外流。否则你最终会出现 500 错误。

要设置标题：

print $web->header();
print $web->header('application/x-www-form-urlencoded');

要从 HTML 接收任何帖子数据，例如，

http://example.com?POSTDATA=helloworld

你可以使用 param() 函数：

my $data = $web->param('POSTDATA');

标量 $data 将设置为“helloworld”。

建议在分配给标量之前检查是否定义了 $web->param('POSTDATA')。