perl之如何在 Solaris 上的 Perl 中监视内存使用情况

我想在 perl 中运行程序时监视内存使用情况，以便如果当前程序使用的内存超过阈值，我应用方法 A，否则应用方法 B。

有人知道吗？

请您参考如下方法:

我从 http://www.perlmonks.org/?node_id=235757 找到了这个脚本:

#!/usr/bin/perl   
 
use Proc::ProcessTable;   
 
sub memory_usage {   
  my $t = new Proc::ProcessTable;   
  foreach my $got ( @{$t->table} ) {   
    next if not $got->pid eq $$;   
    return $got->size;   
  }   
}   
 
 
print 'memory: '. memory_usage()/1024/1024 ."\n";