perl - 如何以编程方式确定我的 Perl 程序在 Windows 下的内存使用情况？

Question

我在 Windows 下将 ActivePerl 用于我的 Perl 脚本，因此我可以通过 Windows 任务管理器中的“进程”选项卡查看它使用了多少内存。

我发现必须这样做相当麻烦。还有另一种方法可以确定我的 Perl 程序的内存使用情况吗？

Answer 1

一种方法是使用 Proc::ProcessTable :

use Proc::ProcessTable;

print 'Memory usage: ', memory_usage(), "\n";

sub memory_usage() {
    my $t = new Proc::ProcessTable;
    foreach my $got (@{$t->table}) {
        next
            unless $got->pid eq $$;
        return $got->size;
    }
}