如何訪問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"; 
    } 
}