From 8bc0a16984553cc3572f0621e0ea323bf5a0e107 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 21 May 2021 13:52:23 +0200 Subject: [PATCH] Bug 28411: [DO NOT PUSH] memory_usage.pl apt install libmemory-usage-perl cd /kohadevbox/koha perl memory_usage.pl|sort -n --- memory_usage.pl | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 memory_usage.pl diff --git a/memory_usage.pl b/memory_usage.pl new file mode 100644 index 00000000000..8630e6deb44 --- /dev/null +++ b/memory_usage.pl @@ -0,0 +1,31 @@ +use Modern::Perl; + +use Memory::Usage; +use File::Slurp qw( read_file ); + +my @modules = read_file('cpanfile'); + +my $script = <new(); +\$mu->record("Loading %s"); +require %s; +\$mu->record("module loaded"); +print \$mu->report(); +EOF + +$script =~ s|\n||g; +for my $m ( @modules ) { + chomp $m; + $m =~ s|^requires '([^']*)'.*$|$1|; + $m =~ s|^recommends '([^']*)'.*$|$1|; + + my $cmd = sprintf $script, $m, $m; + my $output = qx{perl -MMemory::Usage -E '$cmd'}; + + my @report = split "\n", $output; + my $l = $report[2]; + my @x = split " ", $l; + my $diff_rss = $x[6]; + $diff_rss =~ s|\)$||; + say sprintf "%s - %s", $diff_rss, $m; +} -- 2.20.1