当前位置：文江博客话题详情

如何监视 Solaris 上 Perl 的内存使用情况？

发布于 2024-09-13 23:08:03 字数 81 浏览 5 评论 0原文

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

有人有任何想法吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

深空失忆 2024-09-20 23:08:03

我从 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";

I found this script from 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";

回复收藏 0 原文

戒ㄋ 2024-09-20 23:08:03

这将是高度特定于操作系统的。对于 Linux，我能够找到 CPAN 模块 Sys::Statistics ::Linux，它能够读取 /proc 并获取有关当前进程的数据。如果您在 Solaris 上运行，则有 Solaris::Procfs。我找不到任何适用于 Windows 的东西。

更新：由于您使用 Solaris，因此您肯定需要Solaris::Procfs。