Разыменования в массиве хешей в Perl?

Question

данные хранятся в @emailaddresses следующим образом:

$VAR1 = { 'email' => 'abc@google.com' }; 
$VAR2 = { 'email' => 'cde@google.com' }; 
$VAR3 = { 'email' => 'efg@google.com' }; 
$VAR4 = { 'email' => 'hij@google.com' }; 

При печати @emailaddresses (печать @emailaddresses), он печатает HASH(0x...) вместо значений в массиве. Как распечатать значения?

Answer 1

Просто цикл через массив и распечатать «электронная почта» дорожим каждым адресам:

my @emailaddresses = ...; 

for my $addr (@emailaddresses) { 
    print $addr->{email}, "\n"; 
} 

еще лучше, оберните эту логику в функции:

sub print_email_addresses { 
    my @addresses = @_; 

    for my $addr (@addresses) { 
     print $addr->{email}, "\n"; 
    } 
}