散列错误的Perl动态散列

我正在循环查询并返回结果。我正在尝试向另一个哈希添加一个哈希。但是遇到麻烦了

my %users_data;
while($sth->fetch)
{
    $mygroup =>
    {
        'fname' => $fname,
        'lname' => $lname,
        'address' =>
        {
           'street' => $street,
           'city' => $city,
        },
        'id' => $uid,
     },
}

如何将

$mygroup

哈希添加到

%users\u data

哈希

长手则是

my %users_data = (
 'salesmanager' =>
 {
    'fname' => 'mike',
    'lname' => 'john',
    'address' =>
    {
       'street' => '123 street',
       'city' => 'Brooklyn',
    },
    'id' => 12,
 },
 'garagemanager' =>
 {
    'fname' => 'Mark',
    'lname' => 'Jones',
    'address' =>
    {
       'street' => '355 street',
       'city' => 'Brooklyn',
    },
    'id' => 13,
 },
)

---

只需访问目标键并分配其新值：

my %users_data;
while($sth->fetch)
{
    $users_data{$mygroup} = {
        'fname' => $fname,
        'lname' => $lname,
        'address' =>
        {
           'street' => $street,
           'city' => $city,
        },
        'id' => $uid,
     };
}

---

只需访问目标键并分配其新值：

my %users_data;
while($sth->fetch)
{
    $users_data{$mygroup} = {
        'fname' => $fname,
        'lname' => $lname,
        'address' =>
        {
           'street' => $street,
           'city' => $city,
        },
        'id' => $uid,
     };
}

---

您只需使用

$user\u data{$mygroup}

将哈希值

$mygroup

保存在其他哈希值

%users\u data

中，您只需使用

$user\u data{$mygroup}

将哈希值

$mygroup

保存在其他哈希值

%users\u data

中，谢谢。我本以为我试过了，但却犯了错误。但也许我做了一些完全不同的事情。谢谢。我本以为我试过了，但却犯了错误。但也许我做了一些完全不同的事情。