8

我现在正在搜索有关此问题的 2 周，似乎仅在网上搜索时找不到任何答案。

所以，这里有两段代码：

1：

#! /usr/bin/perl

#
# RELEASE MEMORY
#

use threads;

my @child;

$ii=0;


while (1)
{
  my @child = threads->new(\&test, "test");
  $_->detach for @child;
  print "$ii\n";
  $ii++;
}

sub test {
    my ($ee) = 0;    
}

2：

#! /usr/bin/perl

#
# DO NOT RELEASE MEMORY
#

use threads;

my @child;

$ii=0;


for($ii=0;$ii<2000;$ii++) {
    my @child = threads->new(\&test, "test");
    $_->detach for @child;
    print "$ii\n";
}

while(1)
{
  sleep(10);
}

sub test {
    my ($ee) = 0;    
}

所以这就是问题所在。第一个代码只运行一个无限循环，它大约每 2 秒将内存释放回操作系统（根据 ps）

第二个代码也在释放内存，但仅当他在“for”循环内运行时。一旦它退出 for 循环并进入无限循环，所有尚未释放到 for 循环中的内存永远不会释放回操作系统。

有人遇到同样的问题吗？

Perl: (v5.16.1) 为 x86_64-linux-thread-multi 构建

操作系统：Debian 6.0.5

非常感谢

编辑 1：我使用了 800 个线程，并且都通过打印 $ee var 验证了它们是否退出。

但是一旦进入 while(1) 循环，这里就是 ps aux | grep perl 输出：

root@srv:~# ps aux | grep perl
root      6807 41.5  2.5 387780 209580 pts/0   S+   16:38   0:02 /opt/ActivePerl-5.16/bin/perl /home/tttlast.pl
root      7627  0.0  0.0   7548   856 pts/1    S+   16:38   0:00 grep perl

所以所有线程都退出了，但内存使用量仍然是我服务器总内存的 2.5%。因此，除非我终止程序，否则内存仍在使用中。

编辑2：

我解决了我的问题，我改变了我的结构。事实上，主程序（长时间运行的程序）已经分开，我使用小程序等待所有线程完成退出。

这样它不会填满虚拟内存并且其他守护进程不会被杀死。

感谢所有引导我找到解决方案的人。

4

1 回答 1

4

这里没有“问题”。这都是正常的预期行为。如果这给您带来了某种问题，那么您还没有解释它是什么。

没有理由将虚拟内存归还给操作系统，因为虚拟内存不是稀缺资源。没有理由将物理内存归还给操作系统，因为无论如何，如果它有更好的用途，操作系统就会使用它。

没有证据表明这是内存泄漏。测试结果表明，内存使用不会无限制地增加——在所有情况下，它最终都会趋于平稳。

于 2012-10-22T23:25:34.157 回答