有沒有辦法記錄在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個字節大。
與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(\%::);