Come recuperare intestazioni HTTP in perl quando si utilizza CGI

Question

Sto usando Perl/CGI/Apache e voglio recuperare l'intestazione HTTP X-Forwarded-For. Come lo faccio?

Answer 1

Tranne che per alcune intestazioni gestite appositamente, CGI memorizza il valore di Header-Name: nella variabile di ambiente HTTP_HEADER_NAME. Quindi, X-Forwarded-For (se presente nella richiesta) dovrebbe essere trovato in $ENV{HTTP_X_FORWARDED_FOR}.

Answer 2

CGI ha un metodo per l'accesso ai campi di intestazione di richiesta HTTP, chiamato "http", in modo da poter dire:

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

Questo funziona indipendentemente dal fatto che si sta eseguendo come CGI, FastCGI in, mod_perl, ecc ...