- 595 名前:594 mailto:sage [05/01/29 16:03:22 ID:???]
- # ホスト名取得
sub get_host { $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; # ホスト名取得に gethostbyaddr関数を使用する場合は$gethostbyaddr = 1;にします。 $gethostbyaddr = 1; if ($gethostbyaddr) { if ($host eq "" || $host eq "$addr") { $host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2); } } if ($host eq "") { $host = $addr; } }
|
|