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所做的）。