Perl dynamic hash of hash errors

Question

I am looping over a query and returning results. I am trying to add a hash to another hashes. But running into trouble.

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

how do I add the $mygroup hash to %users_data hash?

long hand would be.

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,
 },
)

you need just to save the hash `$mygroup` in the other hash `%users_data` by using `$user_data{$mygroup}` — Mobrine Hayde, Feb 28 '19 at 16:37

score 4 · Accepted Answer · answered Feb 28 '19 at 16:33

4

Simply access the target key and assign its new value:

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

answered Feb 28 '19 at 16:33

Tanktalus

21,664
5
41
68

Thanks. I thought I tried that but was getting errors. But maybe I was doing something totally different. – user3525290 Feb 28 '19 at 18:09

Perl dynamic hash of hash errors

1 Answers1