perl - 在Perl中循环遍历一系列哈希

Question

我是Perl的新手，所以如果这真的很愚蠢，请原谅我，但我无法弄清楚。如果我有一个像这样的数组:

my @array = (
  {username => 'user1', email => 'user1@email' },
  {username => 'user2', email => 'user2@email' },
  {username => 'user2', email => 'user3@email' }
);

遍历此数组的最简单方法是什么？我以为这样的事情会起作用:

print "$_{username} : $_{email}\n" foreach (@array);

但事实并非如此。我想我太拘泥于PHP思维方式了，我只能做类似的事情:

foreach ($array as $user) { echo "$user['username'] : $user['email']\n"; }

Answer 1

@array包含哈希引用，因此您需要使用->取消引用。

print "$_->{username} : $_->{email}\n" foreach (@array);

另请参见文档，例如perldoc perlreftut和perldoc perlref。