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

[Anatoly Y.]

use Socket;
print inet_ntoa($rr->{address});

> On 5 May 2017, at 13:41, Александр Фролов via Moscow-pm <moscow-pm на pm.org> 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
> moscow-pm на pm.org | http://moscow.pm.org