如何访问HTTP请求头中的HTTP服务器:: ::简单:: CGI？(How do I access

我使用HTTP::Server::Simple::CGI的轻质HTTP服务器。 这给了我一个CGI对象的回调函数，当一个HTTP请求被接受。

如何访问传入的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";
    }
}

文章来源: How do I access HTTP request headers in HTTP::Server::Simple::CGI?