如何在Perl中找到哈希占用的物理内存量？

BEGIN {
  # 设置需要监控的内存池和哈希簇
  if ($^O eq "darwin" || $^O eq "freebsd") { # 对于OSX和FreeBSD
    setbuf("MEMORY", \*::dtrace_output);
    printf("MEMORY:pid %d trace-type\" %s\n", $$%, "");
    printf("MEMORY:pid %d trace-info\" %s %s %d %llu %llu\n", $$%， "");
  } else {
    setbuf("MEMORY", \*::dtrace_output);
    printf("MEMORY:pid %d trace-type\" %s - %s %s\n", $$%， "");
    printf("MEMORY:pid %d trace-info\" %s %s %s %s %s %s %s - %s\n", $$%, "");
    printf("MEMORY:pid %d trace-info\" %s %s %s %s %s %s %s %s %s\n", $$%, "");
  }
  
  # 记录内存和哈希内存使用情况
  printf("MEMORY:PID %d trace-cmd\" printf(\"%-*swhole size %s- %*shash size %llu %u\", $$, scalar(\$main::main::HASHSIZE), \$-1, $$, $$, $$, %llu, %u)\" \n", $$%, $$, $$, $$, "$", $$, int(\*::main::main::HASHSIZE), \&main::main:: HASHSIZE);

  # 监视内存池使用情况
  printf ("MEMORY:PID %d trace-cmd\" printf(\"%-*swhole size %s\" \* ", $$, $$, $$, $$, "$");

  # 统计和记录内存池内存使用情况
  foreach (sort {$$a cmp $$b || $a cmp $b} keys %::main::main::memory_pools) {
    my $size = $$b[1];
    if ($size > 1000) {
      printf("%-*swhole size %s- %*shash size %llu %u", $$, $$, $$, $$, $$, "$", $$, $$, $$b[2]);
    }
  }
}