使用 while(1) 的 Perl 脚本中的内存泄漏

Question

gurus.

我有一个perl脚本，它需要在无限循环中运行并监控我的gnu/linux的平均负载和空闲RAM，如果负载/RAM高于/低于设置的值，则使用Google的帐户发送电子邮件。

我找到了这些

Perl 脚本的内存使用情况

如何在长时间运行的 Perl 程序中查找内存泄漏？

并按照建议使用 undef 进行操作，但这似乎没有帮助，因为很可能我有一些永远不会被清除/释放的东西。

以下是内存使用量如何不断增加的示例，一天后它可以分配相当多的 RAM。

这是perl脚本本身。有人可以指出我如何解决这个问题吗？谢谢。

Answer 1

除了使用 cron 之外，还有很多系统监控工具可以为您完成所有这些工作。

无论如何 - 如果您按照以下方式编写一些子例程，则检查内存的使用位置会更容易：

while (1) {
  my $cpu = ...
  my $stat = ...
  if (need_to_send_msg($cpu, $stat)) { send_message($cpu,$stat) }
}
sub send_message {
  my ($cpu, $stat) = @_;
  my $msg_body = compose_message($cpu, $stat);
  transmit_message($msg_body, $from, $to);
}

这将从脚本的主体中删除一大堆变量，并允许您注释掉部分子例程以查看内存的使用位置。

哦 - 在我看来，即使您不打算发送消息，您也会不断创建$smtp连接。通过使用一些子例程使主循环变小后

Answer 2

泄漏可能隐藏在模块的XS部分。似乎Perl部分没有泄漏。您可以尝试逐个卸下外部模块，并检查泄漏何时停止。

无论如何，它看起来足够小，并且在迭代之间没有任何持久数据。为什么不把它放在 cron 上每分钟运行一次，而不是一直把它保存在内存中呢？