从 Perl 动态检查可用的堆内存

Question

我遇到了需要更好地平衡我的八叉树，不仅基于空间分布，还基于每个分支的内存使用情况。Perl 中检查生成的每个对象的内存使用情况，然后作为该进程可用内存的比率的最佳方法是什么？

Answer 1

在 Devel：：Size 中尝试total_size函数：

use Devel::Size qw/total_size/;
print total_size {
    a => [1,2,4],
    b => [{
            x => 2,
            y => 3,
        }, undef, 123],
    c => 123,
}
# 975

您可以从 linux 上的/proc/meminfo 获取可用内存。