Perl версия php's 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 и основано на общем веб-хосте - не уверен, имеет ли это значение.

Answer 1

Вы можете использовать Devel :: Peek . Функция mstat печатает большое количество статистики памяти в любой момент.

Также вы можете вызвать свой Perl-скрипт с установленной переменной окружения PERL_DEBUG_MSTATS:

PERL_DEBUG_MSTATS=2 perl myscript.pl

См. в этой статье для получения информации о том, как расшифровать эту статистику.