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

Question

我正在使用HTTP::Server::Simple::CGI作为轻量级HTTP服务器。当接受HTTP请求时，这给了我回调函数中的CGI对象。

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

cgi->param仅提供表单参数。

谢谢！ 克里斯

Answer 1

在the documentation中说：

  

如果你真的想要，你可以定义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";
    }
}