perl - 如何替换 Perl 哈希键？

Question

假设我有这样的哈希:

$data = {
    'key1' => {
                'key2' => 'value1'
              },
    'key3' => {
                'key4' => {
                            'key5' => 'value2'
                          }
              },
};

现在，我如何用其他键名替换键“key5”，比如“key6”？
我知道如何遍历散列并转储值，但我不知道如何替换键或值到位。

Answer 1

delete运算符返回被删除的值。所以这

$data->{key3}{key4}{key6} = delete $data->{key3}{key4}{key5}

会做你正在寻找的。