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个字节大。
使用Proc::ProcessTable我是5357568字节。

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

Answer 2

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

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

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

2 个答案: