从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获取可用内存。