perl - 如何删除空哈希条目？

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"};
}