Определение хоста

[Sergey Juravlev]

Скажите пожалуйста, как определить хост с которого идет запрос?

[Green Kakadu]

$ENV{\'REMOTE_ADDR\'}

[NeoNox]

#!/usr/bin/perl

use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

print header;


   $ip = $ENV{\'REMOTE_ADDR\'};
   @digits = split (/\\./, $ip);
   $address = pack ("C4", @digits);
   $host = gethostbyaddr ($address, 2);

print "$host";

[Harvester]

Иногда полезно спросить у кого хостишься. Бывает и так: $ip=$ENV{"HTTP_X_FORWARDED_FOR"}

[Sergey Juravlev]

NeoNox
Не работает.
Вместо хоста выводится какие-то два квадрата

Ваш IP: [127.0.0.2].
Ваш хост: [ ].

Harvester
Green Kakadu
Нет, это IP.

[Harvester]

"Не работает" пишется раздельно... Задай вопрос админам.

[Oak]

А ты проверяешь результат на предмет ошибки?
 Тебе же функция не вернет имя хоста, если у этого хоста нету имени вообще  )))