commands/profile/tools/profextr.pl

   1 #!/usr/local/bin/perl
   2
   3 $SAMPLE_SZ = 12;
   4
   5 $file = shift;
   6
   7 open (FILE, $file) or die ("Unable to open $file: $!");
   8
   9 $_ = <FILE>;
  10
  11 until (eof(FILE)) {
  12   read(FILE, $buf, $SAMPLE_SZ) == $SAMPLE_SZ  or die ("Short read.");
  13   ($exe, $pc) = unpack("A8i", $buf);
  14
  15   # System and clock task are in kernel image.
  16 #  $exe =~ s/^system/kernel/;
  17 #  $exe =~ s/^clock/kernel/;
  18
  19   # Memory has p_name "mem" in kernel.
  20 #  $exe =~ s/^mem/memory/;
  21
  22   $pcs{$pc}++ if ($exe eq "fs");
  23 }
  24
  25 foreach $pc (sort { $a <=> $b } keys %pcs) {
  26         print "$pc $pcs{$pc}\n";
  27 }