Александр, добрый вечер! Пока я сделал только небольшой инструмент для сканирования серверов нашего SAAS-сервиса интернет-магазинов с целью поиска «мертвяков» и различных артефактов. В таком виде нужно, наверное, только мне. Но если там будут полезные модули, обязательно залью!
С уважением, Александр Фролов mailto:[email protected] --------------------------------------------------- Пожалуйста, при ответе сохраняйте историю переписки. From: Alexander Gnatyna [mailto:[email protected]] Sent: Wednesday, May 10, 2017 7:39 PM To: Moscow.pm group <[email protected]> Cc: Александр Фролов <[email protected]> Subject: Re: [Moscow.pm] Странная проблема с Net::DNS::Resolver Не забудь залить на цпан :) 10 мая 2017 г. 19:37 пользователь "Александр Фролов via Moscow-pm" <mailto:[email protected]> написал: Да, все получилось, и с MX тоже. Большое спасибо! А для валидации кириллических доменов есть какое-то доступное решение, или нужно все делать своими руками? С уважением, Александр Фролов mailto:[email protected] --------------------------------------------------- Пожалуйста, при ответе сохраняйте историю переписки. -----Original Message----- From: Moscow-pm [mailto:mailto:moscow-pm-bounces%2Balexandre=mailto:[email protected]] On Behalf Of Ilya Chesnokov via Moscow-pm Sent: Wednesday, May 10, 2017 6:53 PM To: Moscow.pm group <mailto:[email protected]> Cc: Ilya Chesnokov <mailto:[email protected]> Subject: Re: [Moscow.pm] Странная проблема с Net::DNS::Resolver 5 мая 2017 г., 9:57 пользователь Евгений Косов via Moscow-pm <mailto:[email protected]> написал: > Александр, > > А если не нарушать инкапсуляцию и использовать $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:[email protected]>: > > > Пытаюсь использовать 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:[email protected] | http://moscow.pm.org > > > > -- > Moscow.pm mailing list > mailto:[email protected] | http://moscow.pm.org > -- Best regards, Ilya Chesnokov -- Moscow.pm mailing list mailto:[email protected] | http://moscow.pm.org -- Moscow.pm mailing list mailto:[email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
