ホストの表示など

質問

ページにアクセスした時にアクセスした人の
IPやホストを表示するにはどうすればいいのでしょう？
また、そのホストなどを変数に格納するには
どうすればいいのでしょうか？

よろしくお願いします。

回答No.1

ximt397 · ベストアンサー

IPアドレスなどは環境変数%ENVに格納されています。

#IPアドレスを表示
print $ENV{'REMOTE_ADDR'};

#ホスト名を表示
print $ENV{'REMOTE_HOST'} || gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2);

#IPアドレスを変数に格納
my $ip = $ENV{'REMOTE_ADDR'};

#ホスト名を変数に格納
my $remote_host = $ENV{'REMOTE_HOST'} || gethostbyaddr(pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})),2);

gethostbyaddrが失敗するとundefを返すので、undefをprintしたり変数に格納するのがいやなら、
|| $ENV{'REMOTE_ADDR'}
などを付加すればよいでしょう。

お礼

大変わかりやすい説明で助かりました。
ありがとうございました。