在 Apache 1.3 中使用 mod_perl。客户端地址获取标头 X-Forwarded-For、HTTP_X_FORWARDED_FO 或环境变量 $ENV{REMOTE_ADDR}:
sub address {
my $self = shift;
unless(defined $self->{address}){
my $header = $self->apache->headers_in->{'X-Forwarded-For'} ||
$ENV{HTTP_X_FORWARDED_FOR} || '';
my ($ip) = $header =~ /([^,\s]+)$/;
$self->{address} = $ip || $ENV{REMOTE_ADDR} || '';
}
return $self->{address};
}
问题是有时会有192.168.200.11、192.168.1.156、192.168.0.73等地址。虽然服务器没有连接到网络 192.168.0.0。