在 Perl 脚本中保持低内存使用的一些好的技巧是什么？我有兴趣学习如何使依赖 Perl 程序的系统的内存占用尽可能低。我知道 Perl 在内存使用方面不是很好，但我想知道是否有任何改进它的技巧。
那么，你可以做些什么来让 Perl 脚本使用更少的内存。我对任何建议都很感兴趣，无论它们是编写代码的实际技巧，还是有关如何以不同方式编译 Perl 的技巧。
为赏金编辑: 我有一个作为网络应用程序服务器的 perl 程序。每个连接到它的客户端当前都有自己的子进程。我也使用线程而不是 fork ，但我无法确定使用线程而不是 fork 实际上是否更节省内存。
我想再次尝试使用线程而不是 fork 。我相信理论上它应该可以节省内存使用量。在这方面我有几个问题:
- 在 Perl 中创建的线程是否会阻止复制 Perl 模块库 到每个线程的内存中？
- 是 threads (使用线程)最有效的方式(或唯一的) 在 Perl 中创建线程的方法？
- 在线程中，我可以指定一个 stack_size 参数，具体是什么 指定此值时我应该考虑，以及它如何影响 内存使用情况？
对于 Perl/Linux 中的线程，确定每个线程的实际内存使用情况最可靠的方法是什么？
最佳答案
您遇到了什么样的问题，“大”对您意味着什么？我有 friend 需要将 200 Gb 的文件加载到内存中，所以他们的好技巧的想法与预算购买者的想法大不相同，因为他们需要 250 Mb 的 RAM(真的吗？我的手机有更多)。
一般来说，Perl 会保留您使用的任何内存，即使它没有使用它。意识到在一个方向上进行优化，例如内存，可能会对其他方面产生负面影响，例如速度。
这不是一个完整的列表(Programming Perl 中还有更多):
☹ 使用 Perl 内存分析工具来帮助您找到问题区域。见 Profiling heap memory usage on perl programs和 How to find the amount of physical memory occupied by a hash in Perl?
☹ 尽可能使用范围最小的词法变量，以允许 Perl 在您不需要时重新使用该内存。
☹ 避免创建大型临时结构。例如，使用 foreach 读取文件会一次读取所有输入。如果您只需要逐行使用，请使用 while。
foreach ( <FILE> ) { ... } # list context, all at once
while( <FILE> ) { ... } # scalar context, line by line
☹ 您甚至可能不需要将文件保存在内存中。 Memory-map files instead of slurping them
☹ 如果您需要创建大数据结构，请考虑类似 DBM::Deep或其他存储引擎，以将其大部分保留在 RAM 和磁盘上，直到您需要它为止。在 Perl 之外，还有各种键值对存储，例如 Redis，可能会有所帮助。
☹ 不要让别人使用你的程序。每当我这样做时，我都会将内存占用减少大约 100%。它还减少了支持请求。
☹(更新:Perl 现在可以在大多数情况下为您处理这个问题，因为它使用写时复制 (COW) 机制)通过引用传递大块文本和大块聚合，这样您就不会t 制作副本，从而将相同的信息存储两次。如果您因为想要更改某些内容而必须复制它，那么您可能会被卡住。这作为子例程参数和子例程返回值是双向的:
call_some_sub( \$big_text, \@long_array );
sub call_some_sub {
my( $text_ref, $array_ref ) = @_;
...
return \%hash;
}
☹ 跟踪模块中的内存泄漏。在我意识到 a module wasn't releasing memory 之前，我的应用程序遇到了很大的问题.我在模块的 RT 队列中找到了一个补丁，应用它，解决了问题。
☹ 如果您需要一次性处理大量数据但又不想占用持久的内存，请将工作卸载到子进程。子进程只有在工作时才会占用内存。当你得到答案时，子进程关闭并释放它的内存。同样，工作分配系统，例如 Minion ，可以在机器之间分散工作。
☹ 将递归解决方案转换为迭代解决方案。 Perl 没有尾递归优化，因此每个新调用都会添加到调用堆栈中。您可以使用 goto 的技巧自己优化尾部问题。或模块，但要坚持使用您可能不需要的技术需要做很多工作。
☹ 使用外部程序、 fork 、作业队列或其他单独的参与者，这样您就不必背负短期内存负担。如果您有一个处理任务将使用大量内存，请让另一个程序(可能是当前程序的一个分支)来处理它并给您答案。当其他程序完成时，它的所有内存都会返回给操作系统。这个程序甚至不需要在同一个盒子上。
☹ 他使用了 6 Gb 还是只使用了 5 个？好吧，说实话，在所有这些兴奋中，我自己都迷失了方向。但是既然这是 Perl，世界上最强大的语言，并且会彻底摧毁你的内存，你必须问自己一个问题:我感到幸运吗？好吧，是吗，朋克？
还有很多，但现在还为时过早弄清楚这些是什么。我在 Mastering Perl 中介绍了一些内容和 Effective Perl Programming .
关于perl - 降低 Perl 内存使用率的技巧，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/9733146/