CGI remote_addr 다운로드 -CGI CGI remote_addr 소스 코드 다운로드

다운로드

이름

cgi :: remote_addr- cgi.pm의 "remote_addr ()"의 향상된 버전

 use CGI;
use CGI::remote_addr;

my $cgi  = CGI -> new();
my $addr = $cgi -> remote_addr();

CGI::remote_addr CGI.pm 에서 제공 한 remote_addr() 메소드의 향상된 버전을 구현하며, 이는 연결이 시작된 원래 IP 주소를 반환하려고 시도합니다 (이는 우리가 연결 한 IP 주소는 아닙니다).

CGI::remote_addr 로드하면 기존 remote_addr() 메소드를 과도하게 늘립니다. 그러나 이것은 글로벌 오버 리드라는 점에 유의하십시오. mod_perl에서 실행중인 경우 모든 응용 프로그램에 대해 과도하게 승리했습니다.

IP 주소를 찾기 위해 $ENV{REMOTE_ADDR} 뿐만 아니라 IP 주소를 찾으려면 $ENV{HTTP_X_FORWARDED_FOR} 를 살펴 봅니다. $ENV{HTTP_X_FORWARDED_FOR} 정의되면 먼저 시도합니다.
$ENV{REMOTE_ADDR} 또는 $ENV{HTTP_X_FORWARDED_FOR} 에 존재하는 것에 관계없이 유효한 IP 주소 만 반환됩니다. $ENV{HTTP_X_FORWARDED_FOR} 의 값이 쓰레기로 채워져있는 많은 사례를 보았으며 실제 IP 만 얻을 수 있습니다.
우리는 스칼라와 목록 컨텍스트에서 IP를 반환합니다. 스칼라 컨텍스트에서는 첫 번째 (원산지) IP 주소를 얻습니다. 목록 컨텍스트에서 연결을 통해 수신 한 모든 IP의 고유 한 목록을 얻습니다.
유효한 IP 주소를 찾을 수없는 경우이 메소드는 127.0.0.1 ( CGI.pm 처럼) 이 아닌 undef 반환합니다.