[Moscow.pm] Странная проблема с Net::DNS::Resolver

[Александр Фролов]

Александр, добрый вечер!
Пока я сделал только небольшой инструмент для сканирования серверов нашего SAAS-сервиса интернет-магазинов с целью поиска «мертвяков» и различных артефактов. В таком виде нужно, наверное, только мне.
Но если там будут полезные модули, обязательно залью!


С уважением, 
Александр Фролов

mailto:alexandre на frolov.pp.ru

---------------------------------------------------
Пожалуйста, при ответе сохраняйте историю переписки.




From: Alexander Gnatyna [mailto:gnatyna на gmail.com] 
Sent: Wednesday, May 10, 2017 7:39 PM
To: Moscow.pm group <moscow-pm на pm.org>
Cc: Александр Фролов <alexandre на frolov.pp.ru>
Subject: Re: [Moscow.pm] Странная проблема с Net::DNS::Resolver

Не забудь залить на цпан :)

10 мая 2017 г. 19:37 пользователь "Александр Фролов via Moscow-pm" <mailto:moscow-pm на pm.org> написал:
Да, все получилось, и с MX тоже. Большое спасибо!
А для валидации кириллических доменов есть какое-то доступное решение, или нужно все делать своими руками?

С уважением,
Александр Фролов
mailto:alexandre на frolov.pp.ru

---------------------------------------------------
Пожалуйста, при ответе сохраняйте историю переписки.



-----Original Message-----
From: Moscow-pm [mailto:mailto:moscow-pm-bounces%2Balexandre=mailto:frolov.pp.ru на pm.org] On Behalf Of Ilya Chesnokov via Moscow-pm
Sent: Wednesday, May 10, 2017 6:53 PM
To: Moscow.pm group <mailto:moscow-pm на pm.org>
Cc: Ilya Chesnokov <mailto:chesnokov.ilya на gmail.com>
Subject: Re: [Moscow.pm] Странная проблема с Net::DNS::Resolver

5 мая 2017 г., 9:57 пользователь Евгений Косов via Moscow-pm
<mailto:moscow-pm на pm.org> написал:
> Александр,
>
> А если не нарушать инкапсуляцию и использовать $rr->address вместо
> $rr->{address}, не станет ли лучше?

+1

> ЗЫ: для MX-записей "address" не определён.

Доступные методы для каждого типа записи описаны в документации по
Net::DNS::RR::*.
Соответственно для A-записей в
https://metacpan.org/pod/Net::DNS::RR::A, для MX -
https://metacpan.org/pod/Net::DNS::RR::MX, ну и т.д.

> WBR,
> Евгений
>
> Friday, мая 5, 2017 9:42 AM +03:00 from Александр Фролов via Moscow-pm
> <mailto:moscow-pm на pm.org>:
>
>
> Пытаюсь использовать Net::DNS::Resolver на Perl v5.20.2 built for
> x86_64-linux-gnu-thread-multi, Debian 8.7:
>
> my $res = Net::DNS::Resolver->new(debug => 1);
> my $query = $res->search('http://ya.ru');
> if ($query)
> {
>   foreach my $rr ($query->answer)
>   {
>      next unless ($rr->type eq "A") or ($rr->type eq "MX");
>      my $address = $rr->{address};
>      print $rr->string."\n";
>      print $rr->{ address }."\n";
>   }
> }
>
> При попытке вывести на консоль $rr->{ address } получаю нечитаемую строку,
> хотя в $rr->string все нормально:
>
> http://ya.ru. 2015 IN A 87.250.250.242
> W---
>
> Подскажите, пожалуйста, в чем может быть проблема?
>
> С уважением,
> Александр Фролов
>
> --
> Moscow.pm mailing list
> mailto:moscow-pm на pm.org | http://moscow.pm.org
>
>
>
> --
> Moscow.pm mailing list
> mailto:moscow-pm на pm.org | http://moscow.pm.org
>



--
Best regards,
Ilya Chesnokov
--
Moscow.pm mailing list
mailto:moscow-pm на pm.org | http://moscow.pm.org
--
Moscow.pm mailing list
mailto:moscow-pm на pm.org | http://moscow.pm.org