perl版本的php的memory_get_peak_usage

Question

perl中是否有类似于PHP memory_get_peak_usage的内容？例如，在PHP中，我可以坚持下去：

echo "Peak memory usage: " . (memory_get_peak_usage(true) / 1024 / 1024) . " MB\r\n";

它的确如此。我需要一种方法来在perl脚本中获取相同类型的信息。

我应该注意这个CGI脚本，基于共享的webhost - 不确定是否重要。

Answer 1

您可以使用Devel::Peek。 mstat函数会在您喜欢的任何位置打印大量内存统计信息。

或者，您可以使用PERL_DEBUG_MSTATS环境变量集来调用perl脚本：

PERL_DEBUG_MSTATS=2 perl myscript.pl

有关如何破译这些统计信息的信息，请参阅this article。