How to delete an empty hash?

Question

I am trying to figure out how to remove a hash entry that returns a value {}.

I worked with something like this:

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

He does not work. Any ideas?

+5

ianc1215 May 21 '11 at 18:46

1 answer

Quentin · Accepted Answer · 2011-05-21T18:52:56+0000

Taking into account {}, refwill "HASH"not"{}"

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