CGI remote_addr下載CGI remote

下載

姓名

CGI :: remote_Addr- cgi.pm的“遠程_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下運行的，那麼您的所有應用程序都過度纏繞它。

我們不僅檢查$ENV{REMOTE_ADDR}以找到IP地址，還可以在$ENV{HTTP_X_FORWARDED_FOR}中查找IP地址。如果定義了$ENV{HTTP_X_FORWARDED_FOR} ，我們首先嘗試。
不管在$ENV{REMOTE_ADDR}或$ENV{HTTP_X_FORWARDED_FOR}中，只有有效的IP地址。我看過很多情況，其中$ENV{HTTP_X_FORWARDED_FOR}的值塞滿了垃圾，並且我們確保您只能獲得真正的IP。
我們在標量和列表上下文中返回IP。在標量上下文中，您將獲得第一個（原始）IP地址。在列表上下文中，您將獲得連接通過的所有IP的唯一列表。
如果我們找不到有效的IP地址，則此方法返回undef ，而不是127.0.0.1（如CGI.pm所做的）。