如何删除空哈希？

Question

我试图弄清楚如何删除返回值的哈希条目{}.

我正在做这样的事情;

if (ref($snapshots{"ID\:$id"}) eq "{}") {
    print "ID $id hash no snapshots\n";
}

它似乎不起作用.有任何想法吗？

Answer 1

考虑到{},ref会"HASH"不会"{}"

if (ref $snapshots{"ID\:$id"} eq 'HASH' && !scalar keys %{$snapshots{"ID\:$id"}}) {
    delete $snapshots{"ID\:$id"};
}