Perl 如何访问HTTP:：Server:：Simple:：CGI中的HTTP请求头？

我使用的是一个轻量级HTTP服务器。当HTTP请求被接受时，它在回调函数中为我提供了一个CGI对象

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

cgi->param

只提供表单参数

谢谢！ 克里斯

上面写着：

如果确实需要，可以定义parse_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";
    }
}

---

克里斯，我在你的问题中用属性代替了标题。如果这不是你的意思，请把找零的钱收回来。谢谢！你让我走对了路！函数头将为我提供参数，而无需自己解析。你好，克里斯