Cómo recuperar encabezados HTTP en Perl al usar CGI

Question

Estoy usando Perl/CGI/Apache y quiero buscar el encabezado HTTP X-Forwarded-For. ¿Cómo puedo hacer eso?

Answer 1

Excepto por unos pocos encabezados que se manejan especialmente, CGI almacena el valor de Header-Name: en la variable de entorno HTTP_HEADER_NAME. Por lo tanto, X-Forwarded-For (si está presente en la solicitud) se debe encontrar en $ENV{HTTP_X_FORWARDED_FOR}.

Answer 2

CGI tiene un método para acceder a los campos de cabecera de petición HTTP, llamados "http", por lo que se puede decir:

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

Esto funciona independientemente de si se está ejecutando como CGI, en fastcgi, mod_perl, etc. ...