perl - 如何在perl中增加哈希的哈希值

Question

未能使用此代码正确填充 HoH：当我使用以下运行循环时：

while (my $form = $form_rs->next ()){
    my $menu=$form->get_column("fmenu");
    my $script=$form->get_column("fscript");
    my $name=$form->get_column("ftitle");

    $itemList->{$menu} = {
        $script => $name
    };
}
print Dumper $itemList;

它运行正确，但由于 $menu 重复，它只保留 HoH 中的最后一个值。所以我在 Data Dumper 中得到错误的输出。每个“菜单”我只得到 1 条记录，而应该有很多。

得到：

itemList=>{
    menu1=>{
        script1=>formName1
    },
    menu2=>{
        script3=>formName3
    }
    ...(and so on)
}

而预期：

itemList=>{
    menu1=>{
        script1=>formName1,
        script2=>formName2
    },
    menu2=>{
        script3=>formName3,
        ...(and so on)
    }
    ...(and so on)
}

请帮忙。谢谢你。

Answer 1

然后，您想要更新$itemList->{$menu}{$script}而不是将对单元素哈希的引用分配给$itemList->{$menu}.

$itemList->{$menu}{$script} = $name;