Как я могу получить доступ к переменной вне цикла, когда я устанавливаю внутри нее внутри цикла?

Question

Я написал быстрый скрипт Perl для запроса локальных DNS-серверов для IP-адреса, и у меня есть переменная, которая должна быть объявлена ​​в рамках цикла, но она, похоже, не находится в области вне цикла , Компилятор возвращает ошибки

 
Global Symbol "$ipAddr" requires explicit package name 

Вот код

my $resolver = Net::DNS::Resolver->new; 

my $dnsQuery = $resolver->search($hostIP[0]->getFirstChild->getData); 

if ($dnsQuery) { 
    foreach my $rr ($dnsQuery->answer) { 
     next unless $rr->type eq "A"; 
     my $ipAddr = ip2dec($rr->address); 
    } 
} 

print("::".$ipAddr); 

Как бы это было возможным объявить переменную таким образом, что будет доступен из внешней петли?

Answer 1

Поместите my $ipAddr декларацию за пределами цикла:

my $dnsQuery = $resolver->search($hostIP[0]->getFirstChild->getData); 
my $ipAddr; 
if ($dnsQuery) { 
     foreach my $rr ($dnsQuery->answer) { 
       next unless $rr->type eq "A"; 
       $ipAddr = ip2dec($rr->address); 
     } 
} 
print("::".$ipAddr);