在Perl中取消对哈希数组的引用？

Question

The data is stored in @emailaddresses as follows:

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

When I print @emailaddresses (print @emailaddresses), it prints HASH(0x...) instead of the values in the array. How can I print the values?

Answer 1

Simply loop through your array and print out each addresses 'email' value:

my @emailaddresses = ...;

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

better yet, wrap this logic in a function:

sub print_email_addresses {
   my @addresses = @_;

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