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