Автор Тема: Перевод IP в буквенный хост  (Прочитано 4823 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Yuraz

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 111
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.kirov.ru/~yura
Перевод IP в буквенный хост
« : 30 Июля 2002, 10:19:14 »
Видел на одном из форумов, написанном на PHP, вместо IP пользователя, добавившего сообщение, печатается его буквенный хост, кто знает, как это зделать (Perl), напишите pliase...

Оффлайн lodevar

  • Сеньор-Помидор
  • Глобальный модератор
  • Ветеран
  • *****
  • Сообщений: 757
  • +0/-0
  • 2
    • Просмотр профиля
    • http://lodevar.hut.ru
Перевод IP в буквенный хост
« Ответ #1 : 30 Июля 2002, 10:30:21 »
gethostbyaddr
только это, видимо, не так уж и поможет тебе...
С наилучшими пожеланиями. LODEVAR

Оффлайн Serchey

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 216
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.rivne.ukrtelecom.ua
Перевод IP в буквенный хост
« Ответ #2 : 30 Июля 2002, 15:50:55 »
use Net::DNS;

Оффлайн ESE

  • Фанат
  • Постоялец
  • ***
  • Сообщений: 172
  • +0/-0
  • 2
    • Просмотр профиля
    • http://comp.hobi.ru
Перевод IP в буквенный хост
« Ответ #3 : 30 Июля 2002, 17:44:42 »
$ip = $ENV{\'REMOTE_ADDR\'};
@digits = split (/\\./, $ip);
$address = pack ("C4", @digits);
$host = gethostbyaddr ($address, 2);
У програмиста две руки: левая и !левая
welcome

Оффлайн Yuraz

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 111
  • +0/-0
  • 0
    • Просмотр профиля
    • http://www.kirov.ru/~yura
Перевод IP в буквенный хост
« Ответ #4 : 31 Июля 2002, 09:14:37 »
ESE, опробовал на h1.ru, подключил через
use Net::hostent; работать не хочет, возвращает $host пустой. Сейчас ещё поразбираюсь, как сделаю, напишу.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28