Looping a través de una matriz de hashes en Perl

Question

Soy un novato total de Perl, así que perdóneme si esto es realmente estúpido, pero no puedo resolverlo. Si tengo una matriz como esta:

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

¿Cuál es la forma más simple de recorrer esta matriz? Pensé que algo así funcionaría:

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

Pero no es así. Creo que soy demasiado pegado con una mentalidad de PHP, donde tan sólo pudiera hacer algo como:

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

Answer 1

@array contiene referencias de hash , por lo que es necesario utilizar -> a derefecence.

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

Véase también la documentación, por ejemplo perldoc perlreftut y perldoc perlref.