在 Perl 中填充哈希值的哈希值

Question

我想知道如何填充以下哈希结构：

my $hash = {
    'user' => [
        {
            'id' => '1',
            'name' => 'John'
        },
        {
            'id' => '2',
            'name' => 'Pat'
        }

    ]
};

我希望能够动态填充此哈希。我想循环数据库中的值并推送（添加）新值（id、名称）以填充哈希。

Answer 1

为了填充散列的散列中的值，可以只使用：

my %hash;
....
$hash{$key}{$subkey} = $value;

但是，在循环它们时要小心！标量值 $hash{$key} 实际上是子哈希的标量引用，而不是子哈希对象本身。

Answer 2

要向该结构添加另一个元素：

# Get the element
my $hashRef = {
    'id' => '1',
    'name' => 'John'
};
# You didn't specify what you have as far as DB data
my $hashRef = someMethodReturningDatabaseData(); 

# Add to the arrayref:
my $hash = { user => [] }; # Initialize - only once
$hash->{user} ||= []; # As alternative, always make sure to have an arrayref,
                      # on every iteration
# Add to the array ref
push @{ $hash->{user} }, $hashRef;

根据您对另一个答案的评论，您可以执行

my $hash = { user => [] }; # Initialize - only once
foreach my $user (@users) {
    push @{ $hash->{user} }, { id => $user->[0], name => $user->[1] };
}

以下操作作为注释，您的数据结构看起来非常奇怪 - 不清楚为什么您需要仅带有一个硬编码键的外部哈希“用户”。

Answer 3

    my $user = {
        id   => $id,
        name => $name,
    };

    push @{ $hash->{user} }, $user;

---

Nit： $hash->{user} 应命名为 $hash->{users}