IPをホスト名に変換する
PerlでIPアドレスからHost名を得る方法を解説しています。
サンプルコード
$host = gethostbyaddr(pack("C4", split(/\./, $ENV{'REMOTE_ADDR'})), 2);概要
利用している環境がIP->Hostの変換をサポートしている必要があります。
127.0.0.1のような形式の文字列をドット(.)で分解し、それをpackした後にgethostbyaddrに渡し、ホスト名を得ます。