如何访问 HTTP::Server::Simple::CGI 中的 HTTP 请求标头？

Question

我正在使用 HTTP::Server::Simple::CGI用于轻量级 HTTP 服务器。当接受 HTTP 请求时，这会在回调函数中为我提供一个 CGI 对象。

如何访问传入的 HTTP 标头，尤其是非标准标头？ 环境变量只是标准变量。

cgi->param 只给我表单参数。

谢谢！ 克里斯

Answer 1

它在文档中说：

如果您确实愿意，您可以定义 parse_headers() 并自己解析它们。

Answer 2

定义 headers 方法来接收标头。

sub headers
{
    my $self = shift;
    my $headers = shift;
    my @h = @{$headers};

    while (0 + @h)
    {
        my $k = shift @h;
        my $v = shift @h;

        print STDERR "header >> $k: $v\n";
    }
}