Как я могу удалить пустые хеш-файлы?

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