TT#22005 add tracemem script for memory profiling

Change-Id: I50d4f1abe1d1c5f3471c81a928944625a3bedaa3
8 years ago · 41372cf8f6
parent 9a85c9a2f9
commit 41372cf8f6
1 changed files with 14 additions and 0 deletions
--- a/sandbox/tracemem.pm
+++ b/sandbox/tracemem.pm
@ -0,0 +1,14 @@
+our $old = 0;
+BEGIN {
+    unshift @INC, sub {
+        my ($self, $file) = @_;
+        use GTop qw();
+        my $current=GTop->new->proc_mem($$)->size;
+        my $delta=$current-$old;
+        printf "pid %d proc_mem %d delta %-10d file %s\n", $$, $current, $delta, $file;
+        $old=$current;
+    }
+}
+1;
+
+# run with: perl -Isandbox -mtracemem ...