Как получить доступ к заголовкам HTTP-запроса в HTTP :: Server :: Simple :: CGI?

Question

Я использую 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";
    }
}