DBM::Deep不使用perl散列引用

Question

我使用DBM::Deep散列对象，如下所示：

my $dbm = DBM::Deep->new(
        file      => "dbm.db",
        locking   => 1,
        autoflush => 1,
        type      => "DBM::Deep->TYPE_HASH",
        );
#code..
$dbm = $hash_reference;

然而，这不起作用。在程序运行期间，$dbm保存了正确的值，但是在它退出后，dbm.db为空，当我启动另一个尝试使用dbm.db的程序时，里面什么也没有。但是每当我像这样复制散列引用时(这是一个两级深的散列)：

    for my $id (keys %$hash_reference) {
        for(keys %{$hash_reference->{$id}}) {
            $todo->{$id}->{$_} = $hash_reference->{$id}->{$_};
        }
    }

然后，它将正确地复制所有内容，并且这些值在程序执行后仍然存在。DBM的作者似乎强调，他的DBM::Deep对象的工作方式就像常规的哈希一样，那么有没有人知道有没有更简单的方法呢？谢谢!

Answer 1

你在扔掉这个东西。试着这样做：

%$dbm = %$hash_reference;