tools/memory_watcher/scripts/finditem.pl

   1 #!/usr/bin/perl
   2 # Copyright (c) 2012 The Chromium Authors. All rights reserved.
   3 # Use of this source code is governed by a BSD-style license that can be
   4 # found in the LICENSE file.
   5
   6 sub process_raw($$) {
   7   my $file = shift;
   8   my $search = shift;
   9
  10   my %leaks = ();
  11
  12   my $save = 0;
  13   my $print = 0;
  14   my $bytes = 0;
  15   my $calls = 0;
  16   my $sum_bytes = 0;
  17   my $sum_calls = 0;
  18
  19   open (LOGFILE, "$file") or die("could not open $file");
  20   while(<LOGFILE>) {
  21     my $line = $_;
  22     if ($line =~ m/([0-9]*) bytes, ([0-9]*) items/) {
  23       $save = "";
  24       $print = 0;
  25       $bytes = $1;
  26       $calls = $2;
  27     }
  28     elsif ($line =~ m/$search/) {
  29       $print = 1;
  30     }
  31     elsif ($line =~ m/=============/) {
  32       $save .= $line;
  33       if ($print) {
  34         print "$bytes bytes ($calls calls)\n";
  35         print $save;
  36         $sum_bytes += $bytes;
  37         $sum_calls += $calls;
  38         $save = "";
  39         $print = 0;
  40         $calls = 0;
  41       }
  42     }
  43     $save .= $line;
  44   }
  45   print("TOTAL: $sum_bytes bytes ($sum_calls calls)\n");
  46 }
  47
  48
  49 # ----- Main ------------------------------------------------
  50
  51 # Get the command line argument
  52 my $filename = shift;
  53 my $search = shift;
  54
  55 # Process the file.
  56 process_raw($filename, $search);