use Socket;
print inet_ntoa($rr->{address});> On 5 May 2017, at 13:41, Александр Фролов via Moscow-pm <[email protected]> > wrote: > > Пытаюсь использовать 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('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 все нормально: > > ya.ru. 2015 IN A 87.250.250.242 > W--- > > Подскажите, пожалуйста, в чем может быть проблема? > > С уважением, > Александр Фролов > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
