Forum Webscript.Ru

Программирование => Perl => Тема начата: Sergey Juravlev от 27 Января 2002, 21:36:58

Название: Определение хоста
Отправлено: Sergey Juravlev от 27 Января 2002, 21:36:58

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

Название: он?
Отправлено: Green Kakadu от 28 Января 2002, 00:24:49

$ENV{\'REMOTE_ADDR\'}

Название: ...а может это он?
Отправлено: NeoNox от 28 Января 2002, 11:51:43

#!/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 от 28 Января 2002, 21:57:51

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

Название: Определение хоста
Отправлено: Sergey Juravlev от 08 Февраля 2002, 15:39:25

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

Цитировать

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

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

Название: Определение хоста
Отправлено: Harvester от 09 Февраля 2002, 23:19:51

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

Название: Определение хоста
Отправлено: Oak от 10 Февраля 2002, 02:43:12

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