Forum Webscript.Ru

Программирование => Perl => Тема начата: SniperDragon от 12 Мая 2007, 11:15:18

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 12 Мая 2007, 11:15:18

Здравствуйте
мне для корректной работы с сервисом zz.countries.nerd.dk необходимо получить запись DNS. Мне нужно в ответе получить 127.0.х.х Незнаю уже как это сделать по всякому пробовал. Помогите

Название: как сделать lookup IP ?
Отправлено: arto от 12 Мая 2007, 14:16:12

http://countries.nerd.dk/more.html не помогает?

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 12 Мая 2007, 16:30:18

я как раз про это и спрашиваю, я не знаю как запись с ДНС считать или что там они просят на этой странице. Они пишут мол lookup ip4.ip3.ip2.ip1.zz.countries.nerd.dk

а как этот lookup  в перле организовать?

Название: как сделать lookup IP ?
Отправлено: arto от 13 Мая 2007, 02:20:40

хм. пора за чтение документации деньги брать.

# host http://www.ru
http://www.ru                  A       194.87.0.50
# host 50.0.87.194.zz.countries.nerd.dk
50.0.87.194.zz.countries.nerd.dk        A       127.0.2.131
#

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 13 Мая 2007, 10:58:12

Может меня вы не понимаете. Но как технически на перле получить эту строчку. То что вы пишите это всего лишь ответ сервера, но как технически эту запись получить.

Я умею пинговать, но в ответ я только могу получить что данный хост жив, а мне нужно средствами перла получить именно такой ответ:

50.0.87.194.zz.countries.nerd.dk A 127.0.2.131

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 13 Мая 2007, 11:01:33

Там вместо точек вопросы нужно было поставить. Я в последнее время рассеяным стал совсем.

Название: как сделать lookup IP ?
Отправлено: arto от 13 Мая 2007, 15:31:49

perldoc Net::DNS

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 13 Мая 2007, 15:58:14

Я использую библиотеку Net:: DNS Но конкретной команды lookup там нет. Я нашел как пинговать сервер - это работает. Но примеры как считать запись с сервера у меня не работают, нет ответа от сервера. Может я что неправильно делаю или не понимаю чего. Вот я и обратился на форум. Здесь таких вопросов, а тем более ответов нет.

Нужен технический ответ, не теоретический. Если можешь выложи несколько строк кода, в котором нужно получить запись

50.0.87.194.zz.countries.nerd.dk A 127.0.2.131

Название: как сделать lookup IP ?
Отправлено: NeoNox от 14 Мая 2007, 13:45:49

use Net::DNS;
use Data::Dumper;

$res = Net::DNS::Resolver->new;
$answer = $res->search(\'www.ru\', \'A\');
print Dumper($answer);

Название: как сделать lookup IP ?
Отправлено: SniperDragon от 14 Мая 2007, 14:58:01

Спасибо, работает.

Но работает только под Линуксом. А в Виндовсе нет. Но это уже не в тему.

Название: как сделать lookup IP ?
Отправлено: nal от 24 Мая 2007, 09:16:28

Цитировать

SniperDragon:
Спасибо, работает.

Но работает только под Линуксом. А в Виндовсе нет. Но это уже не в тему.

nslookup или что то в этом роде под виндой есть?
днс настроен?

тогда можно еще так попробовать:

$conent_with_ip=`nslookup $hostname`;
@ips=$content_with_ip=~m{(\\d+\\.\\d+\\.\\d+\\.\\d+)}g;
print join ("|", @ips), "\\n";