#!/usr/bin/perl
print "Content-Type: text/html; charset=\"windows-1251\"\r\n\r\n";
use Socket;
for($i=0;$i<=255;$i++){
$address='192.168.0.'.$i;
$name=gethostbyaddr(inet_aton($address),AF_INET);
if ($name){print $address.' = \''.$name.'\'
';}
}
Ip->name
Как преобразовать IP-адрес в имя компа в локальной сетке? Вроде должно работать gethostbyaddr, но что-то не получается и выдает либо мой комп (какой ему IPшник не суй), либо вообще ничего не выдает...
Вроде как разобрался и накатал вот такое (работает):
Вопрос к спецам:
1) какие недостатки?
2) как выставить таймаут для gethostbyaddr?
Код:
Вопрос к спецам:
1) какие недостатки?
2) как выставить таймаут для gethostbyaddr?
$name=gethostbyaddr(inet_addr($address),AF_INET);
Цитата:
Originally posted by sercher
$name=gethostbyaddr(inet_addr($address),AF_INET);
$name=gethostbyaddr(inet_addr($address),AF_INET);
А у меня так ничего не получилось.... Почему?
Цитата:
Originally posted by vitorg
А у меня так ничего не получилось.... Почему?
А у меня так ничего не получилось.... Почему?
Эта функция расчитанна на работу в другой сети... не MS(?) :)
Она возращает доменное имя...
Насколько я понял из документации...