Forum Webscript.Ru

Программирование => Perl => Тема начата: Yuraz от 30 Июля 2002, 10:19:14

Название: Перевод IP в буквенный хост
Отправлено: Yuraz от 30 Июля 2002, 10:19:14

Видел на одном из форумов, написанном на PHP, вместо IP пользователя, добавившего сообщение, печатается его буквенный хост, кто знает, как это зделать (Perl), напишите pliase...

Название: Перевод IP в буквенный хост
Отправлено: lodevar от 30 Июля 2002, 10:30:21

gethostbyaddr
только это, видимо, не так уж и поможет тебе...

Название: Перевод IP в буквенный хост
Отправлено: Serchey от 30 Июля 2002, 15:50:55

use Net::DNS;

Название: Перевод IP в буквенный хост
Отправлено: ESE от 30 Июля 2002, 17:44:42

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

Название: Перевод IP в буквенный хост
Отправлено: Yuraz от 31 Июля 2002, 09:14:37

ESE, опробовал на h1.ru, подключил через
use Net::hostent; работать не хочет, возвращает $host пустой. Сейчас ещё поразбираюсь, как сделаю, напишу.