在没有 CGI 的 Perl 中使用 cookie

Question

我正在尝试使用 Perl 但不使用 CGI 或任何其他框架来创建一个标准的论坛风格网站。我在使用一个简单命名为“cookies.pl”的脚本之前见过，但找不到任何关于它的文档。有没有办法只使用核心模块来设置/读取 cookie？

Answer 1

首先，我假设当你说你不想使用“CGI”时，你的意思是 Perl 模块CGI.pm，而不是与 Web 服务器通信的通用网关接口 (CGI) 方法，即由CGI.pm 模块实现。

其次，此答案仅供参考和娱乐目的。尝试实现自己的 CGI 处理程序以用于生产环境是不可取的。除非您确切地知道自己在做什么，否则这是一个非常非常糟糕的主意。即使您这样做，也可能仍然是个坏主意。而且，如果您确实知道自己在做什么，就不必询问有关界面基本部分的问题，例如如何实现 cookie 处理。

除了所有这些之外，直接处理 cookie 非常简单。

• 要设置 cookie，请向客户端发送 Set-Cookie HTTP 标头。在最基本的形式中，这看起来像Set-Cookie: CookieName=CookieValue。还有许多其他选项可以添加到这种基本格式中，例如网络上各个地方的documented。

如果您现在想知道“我如何发送 HTTP 标头？”，那么在第一个空行之前发送给客户端的每一行文本（即 print 到 STDOUT）都是一个 HTTP标题：

print "Content-Type: text/html\n";            # Content-Type header is mandatory!
print "Set-Cookie: CookieName=CookieValue\n"; # Header to set a cookie
print "\n";                                   # Blank line = end of headers
# continue on with sending the response body now that headers are done

• 要读取 cookie，请查看环境变量 HTTP_COOKIE，它由 Web 服务器作为其 CGI 实现的一部分提供，并将包含一个以分号分隔的列表，其中包含客户端 HTTP 请求接收到的所有 cookie。在 Perl 中以 $ENV{HTTP_COOKIE} 访问。