Perl内存使用情况分析和泄漏检测?

我在Perl上编写了一个运行在Linux上的持久networking服务。

不幸的是,随着它的运行,其驻留堆栈大小(RSS)正在增长,并且缓慢而稳定地增长和增长。

尽pipe我尽了最大努力来清除所有不需要的散列键,并删除了所有对象的引用,否则这些引用会导致引用计数停留在原位并阻碍垃圾回收。

是否有任何好的工具来分析与Perl程序中的各种本地数据原语,受祝福的哈希引用对象等有关的内存使用情况? 你用什么来追踪内存泄漏?

我不习惯在Perldebugging器或任何各种交互式分析器中花费时间,所以我们将不胜感激。 🙂

5 Solutions collect form web for “Perl内存使用情况分析和泄漏检测?”

你可以在你的对象中有一个循环引用。 当垃圾收集器来解除分配这个对象时,循环引用意味着该引用引用的所有内容都不会被释放。 您可以使用Devel :: Cycle和Test :: Memory :: Cycle检查循环引用。 有一件事要尝试(尽pipe在生产代码中可能会变得昂贵,所以当debugging标志没有设置的时候我会禁用它)正在检查所有对象的析构函数中的循环引用:

# make this be the parent class for all objects you want to check; # or alternatively, stuff this into the UNIVERSAL class's destructor package My::Parent; use strict; use warnings; use Devel::Cycle; # exports find_cycle() by default sub DESTROY { my $this = shift; # callback will be called for every cycle found find_cycle($this, sub { my $path = shift; foreach (@$path) { my ($type,$index,$ref,$value) = @$_; print STDERR "Circular reference found while destroying object of type " . ref($this) . "! reftype: $type\n"; # print other diagnostics if needed; see docs for find_cycle() } }); # perhaps add code to weaken any circular references found, # so that destructor can Do The Right Thing } 

您可以使用Devel :: Leak来search内存泄漏。 然而,文档是相当稀疏…例如,只是在哪里得到的$处理引用传递给Devel::Leak::NoteSV()如果我find答案,我会编辑这个答案。

好吧,事实certificate,使用这个模块非常简单(从Apache :: Leak无耻地窃取代码):

 use Devel::Leak; my $handle; # apparently this doesn't need to be anything at all my $leaveCount = 0; my $enterCount = Devel::Leak::NoteSV($handle); print STDERR "ENTER: $enterCount SVs\n"; # ... code that may leak $leaveCount = Devel::Leak::CheckSV($handle); print STDERR "\nLEAVE: $leaveCount SVs\n"; 

我会在中间部分放置尽可能多的代码,leaveCount检查尽可能接近执行结束(如果有的话) – 在大多数variables被释放后尽可能(如果你不能得到一个超出范围的variables,你可以指定undef来释放它所指向的任何东西)。

下一步尝试(不知道是否这是最好的评论之后,亚历克斯的问题上面虽然):我会尝试下一步(除了Devel ::泄漏):

尽量消除程序中“不必要”的部分,或将其分割成单独的可执行文件(它们可以使用信号进行通信,也可以使用命令行参数进行调用) – 目标是将可执行文件归结为最小量仍然performance出不良行为的代码 。 如果你确定这不是你的代码,那么减less你使用的外部模块的数量,特别是那些有XS实现的模块。 如果这也许是你自己的代码,那么寻找任何可能的诡计:

  • 绝对使用Inline :: C或XS代码
  • 直接使用引用(例如\@list\%hash ,而不是像[qw(foo bar)]这样的预先分配的引用(前者创build另一个可能会丢失的引用;后者只有一个参考值得担心,它通常存储在本地的词法标量中
  • 间接操作variables,例如$$foo ,其中$foo被修改,这会导致variables的自动变化(尽pipe您需要禁用strict 'refs'检查)

Perl手册中包含了一个很好的指导: debuggingPerl内存使用情况

我最近使用NYTProf作为一个大的Perl应用程序的分析器。 它不会跟踪内存使用情况,但它会跟踪所有已执行的代码path,这有助于查明泄漏源于何处。 如果你泄漏的是像数据库连接这样的稀缺资源,那么追踪它们被分配和closures的位置对于发现泄漏有很大的帮助。

  • 我怎样才能看到一个Perl哈希已经有一个特定的关键?
  • 在Perl中,是否有内置的方式来比较两个数组是否相等?
  • 我如何自动化CPANconfiguration?
  • 在Perl中分配三元条件运算符的问题
  • 简单的方法来打印Perl数组? (有一点格式)
  • Perl,Python,AWK和sed有什么区别?
  • 如何有效地计算运行标准偏差?
  • 如何在Perl中使用布尔variables?
  • 如何在Perl中find用户的主目录?
  • 我们应该雇用一个在Perl中编写C的人吗?
  • 如何比较Perl中的两个string?