リバースプロキシ先で、リモートIPアドレスを取得する方法

Apache Perl

バックエンドが Apache2 + mod_perl2 の環境で、リバープロキシ先のバックエンド側で、リモートIPアドレスを取得する方法

if ( $r->subprocess_env->{HTTP_X_FORWARDED_FOR} ) {
    my @clients = split( /,/, $r->subprocess_env->{HTTP_X_FORWARDED_FOR} );
    $self->{apache_env}->{client_ip} = pop( @clients );
} else {
    $self->{apache_env}->{client_ip} = $r->subprocess_env->{REMOTE_ADDR} || '';
}

$r は、 Apache2::Request