Version Perl de memory_get_peak_usage de php

Question

Existe-t-il quelque chose dans perl similaire à memory_get_peak_usage de PHP? Par exemple, en PHP, je peux coller dans la ligne:

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

et il fait à peu près ce qu'il dit. J'ai besoin d'un moyen d'obtenir le même type d'information dans un script Perl.

Je devrais noter que ceci pour un manuscrit de CGI, et basé sur un hébergeur partagé - ne sait pas si cela importe.

Answer 1

Vous pouvez utiliser Devel::Peek. La fonction mstat imprime un grand nombre de statistiques de mémoire à tout moment.

Alternativement, vous pouvez appeler votre script Perl avec la variable d'environnement PERL_DEBUG_MSTATS:

PERL_DEBUG_MSTATS=2 perl myscript.pl 

Voir this article pour plus d'informations sur la façon de déchiffrer ces statistiques.