perl - 有没有办法记录在 PERL 中运行的最大内存

Question

正如我所说，我想记录程序运行时使用的最大内存。

Answer 1

Devel::Size一次只测量一个特定数据结构的内存大小，以测量脚本中使用的所有数据结构的总内存大小在类 Unix 系统上，Proc::ProcessTable为它提供了一个很好的 API：

这是一个简单的脚本，将其与 Devel::Size 进行比较。

 #!/usr/bin/perl -w
use strict;
use Proc::ProcessTable;
use Devel::Size qw(size);


my @arr = ('A' .. 'M');
my $devel_size = size(\@arr);
print "With DEVEL::SIZE I'm $devel_size bytes big\n";


my $t = Proc::ProcessTable->new();

foreach my $p ( @{$t->table} ) {
    if($p->pid() == $$) {
    print "With Proc::ProcessTable I'm ", $p->size(), " bytes big.\n";
        last;
    }
}

它给：

DEVEL::SIZE我有 104 个字节。我有 5357568 字节大
。Proc::ProcessTable

注：信息来源：http ://www.perlmonks.org/

Answer 2

在 perlmonks 上找到了这个，http ://www.perlmonks.org/?node_id=498401 ：

use Devel::Size qw/ total_size /;
print total_size( \%:: );