使用CGI时如何在perl中获取HTTP头

Question

我正在使用Perl/CGI/Apache并希望获取X-Forwarded-For HTTP标头.我怎么做？

Answer 1

除了专门处理的一些头文件外,CGI将值存储Header-Name:在环境变量中HTTP_HEADER_NAME.因此,X-Forwarded-For(如果存在于请求中)应该在$ENV{HTTP_X_FORWARDED_FOR}.

Answer 2

CGI有一个访问HTTP请求头字段的方法,称为"http",所以你可以说:

my $q = CGI->new()
print $q->http('X-Forwarded-For');

无论你是作为CGI,在fastcgi,mod_perl等运行,这都有效...