如何在使用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，等等...