Mam skrypt Perla, w którym utrzymuję bardzo prostą pamięć podręczną przy użyciu tabeli mieszania. Chciałbym usunąć hash, gdy zajmie więcej niż n bajtów, aby uniknąć wyczerpania pamięci i awarii systemu Perl (32-bit).

Mogę sprawdzić liczbę par kluczy-wartości:

if (scalar keys %cache > $maxSize)
 {
 %cache = ();
 }

Ale czy można sprawdzić rzeczywistą pamięć zajmowaną przez hash?