tools/memoryReport.pl

   1 die "usage: perl memoryReport.pl  [-c (sort by count) | -a (sort by allocated amount)] [-l] logFile.txt" if (@ARGV < 1 || $ARGV[0] eq "-h");
   2
   3 $sortMethod = 0;  # 0 = using sort by allocated amount, 1 = sort by allocation count
   4
   5 if ($ARGV[0] eq "-c")
   6 {
   7         shift @ARGV;
   8         $sortMethod = 1;
   9 }
  10
  11 if ($ARGV[0] eq "-a")
  12 {
  13         shift @ARGV;
  14         $sortMethod = 0;
  15 }
  16
  17
  18 if ($ARGV[0] eq "-l")
  19 {
  20         shift @ARGV;
  21         $lines = 1;
  22 }
  23
  24 sub sortAllocated
  25 {
  26         return -($allocated{$a} <=> $allocated{$b});
  27 }
  28
  29 sub sortCount
  30 {
  31         return -($count{$a} <=> $count{$b});
  32 }
  33
  34 while (<>)
  35 {
  36         chomp;
  37
  38         if (/memory allocation/ || /memory leak/)
  39         {
  40                 s/.*[\/\\]//;
  41                 s/^.*unknown/unknown/;
  42                 s/:.*,//;
  43                 s/bytes$//;
  44                 s/\(.*\)// if (! $lines);
  45                 ($file, $size) = split;
  46                 $allocated{$file} += $size;
  47                 $count{$file} += 1;
  48         }
  49         elsif (s/: alloc / /)
  50         {
  51                 s/=.*//;
  52                 s/\(.*\)// if (! $lines);
  53                 ($file, $size) = split;
  54                 $allocated{$file} += $size;
  55                 $count{$file} += 1;
  56         }
  57 }
  58
  59 if ($sortMethod == 0)
  60 {
  61         # print sorted by allocated amount
  62         foreach (sort sortAllocated keys %allocated)
  63         {
  64                 print $count{$_}, "\t", $allocated{$_}, "\t", $_, "\n";
  65         }
  66 }
  67 else
  68 {
  69         # print sorted by # allocations
  70         foreach (sort sortCount keys %count)
  71         {
  72                 print $count{$_}, "\t", $allocated{$_}, "\t", $_, "\n";
  73         }
  74 }