在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";
   }
}