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

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

在perlmonks上发现了这一点：

在perlmonks上找到这个

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字节

注意：信息来源：

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字节

---

注意：信息来源：

什么内存？使用的系统RAM总量，或者perl脚本本身使用的内存，或者其他应用程序使用的内存？一旦分配，perl不会将内存释放回操作系统，直到进程结束。从这个意义上讲，在程序退出之前测量内存使用量就足够了。您可以查看ps输出或top以获得大致的想法。问题通常是与进程相关联的共享库所使用的内存；即。您向哪些进程收取内存使用费。我指的是perl脚本使用的内存itself@mob那不是真的。这取决于构建使用的分配器。通常在Windows上使用的窗口会将块返回给系统。至少是那些大的。什么记忆？使用的系统RAM总量，或者perl脚本本身使用的内存，或者其他应用程序使用的内存？一旦分配，perl不会将内存释放回操作系统，直到进程结束。从这个意义上讲，在程序退出之前测量内存使用量就足够了。您可以查看ps输出或top以获得大致的想法。问题通常是与进程相关联的共享库所使用的内存；即。您向哪些进程收取内存使用费。我指的是perl脚本使用的内存itself@mob那不是真的。这取决于构建使用的分配器。通常在Windows上使用的窗口会将块返回给系统。至少是那些大的。