對於perl中數組中的每個對象

Question

我試圖遍歷Perl數組中的每個對象，我想我犯了一個明顯的錯誤。

my @members_array = [
    {
        id    => 1234,
        email => 'first@example.com',
    }, {
        id    => 4321,
        email => 'second@example.com',
    }
];

use Data::Dumper;
for my $member ( @members_array ) {
    print Dumper( $member );
}

第一次迭代的預期輸出

{
    id    => 1234,
    email => 'first@example.com',
}

第一次迭代的實際輸出

[{
    'email' => 'first@example.com',
    'id' => 1234
 }, {
    'email' => 'second@example.com',
    'id' => 4321
}];

如何遍歷數組中的這些元素？ 謝謝！

Answer 1

[ ... ]用於創建數組引用； 您需要使用( ... )創建一個數組：

my @members_array = (
    {
        id    => 1234,
        email => 'first@example.com',
    }, {
        id    => 4321,
        email => 'second@example.com',
    }
);

然后，其余代碼將正常工作。