Perl版本的php'；s内存\u获取\u峰值\u使用率

perl中是否有类似于PHP的东西？例如，在PHP中，我可以坚持以下观点：

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

它几乎做到了它所说的。我需要一种在perl脚本中获取相同类型信息的方法

我应该注意的是，这是一个CGI脚本，并且基于一个共享的Web主机-不确定这是否重要。

您可以使用。

mstat

函数在您喜欢的任何位置打印大量内存统计信息

或者，您可以使用

perl\u DEBUG\u MSTATS

环境变量集调用perl脚本：

PERL_DEBUG_MSTATS=2 perl myscript.pl

有关如何破译这些统计数据的信息，请参阅