LXR linux/tools/perf/scripts/perl/rw-by-file.pl

   1#!/usr/bin/perl -w
   2# (c) 2009, Tom Zanussi <tzanussi@gmail.com>
   3# Licensed under the terms of the GNU GPL License version 2
   4
   5# Display r/w activity for files read/written to for a given program
   6
   7# The common_* event handler fields are the most useful fields common to
   8# all events.  They don't necessarily correspond to the 'common_*' fields
   9# in the status files.  Those fields not available as handler params can
  10# be retrieved via script functions of the form get_common_*().
  11
  12use 5.010000;
  13use strict;
  14use warnings;
  15
  16use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";
  17use lib "./Perf-Trace-Util/lib";
  18use Perf::Trace::Core;
  19use Perf::Trace::Util;
  20
  21my $usage = "perf script -s rw-by-file.pl <comm>\n";
  22
  23my $for_comm = shift or die $usage;
  24
  25my %reads;
  26my %writes;
  27
  28sub syscalls::sys_enter_read
  29{
  30    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
  31        $common_pid, $common_comm, $nr, $fd, $buf, $count) = @_;
  32
  33    if ($common_comm eq $for_comm) {
  34        $reads{$fd}{bytes_requested} += $count;
  35        $reads{$fd}{total_reads}++;
  36    }
  37}
  38
  39sub syscalls::sys_enter_write
  40{
  41    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
  42        $common_pid, $common_comm, $nr, $fd, $buf, $count) = @_;
  43
  44    if ($common_comm eq $for_comm) {
  45        $writes{$fd}{bytes_written} += $count;
  46        $writes{$fd}{total_writes}++;
  47    }
  48}
  49
  50sub trace_end
  51{
  52    printf("file read counts for $for_comm:\n\n");
  53
  54    printf("%6s  %10s  %10s\n", "fd", "# reads", "bytes_requested");
  55    printf("%6s  %10s  %10s\n", "------", "----------", "-----------");
  56
  57    foreach my $fd (sort {$reads{$b}{bytes_requested} <=>
  58                              $reads{$a}{bytes_requested}} keys %reads) {
  59        my $total_reads = $reads{$fd}{total_reads};
  60        my $bytes_requested = $reads{$fd}{bytes_requested};
  61        printf("%6u  %10u  %10u\n", $fd, $total_reads, $bytes_requested);
  62    }
  63
  64    printf("\nfile write counts for $for_comm:\n\n");
  65
  66    printf("%6s  %10s  %10s\n", "fd", "# writes", "bytes_written");
  67    printf("%6s  %10s  %10s\n", "------", "----------", "-----------");
  68
  69    foreach my $fd (sort {$writes{$b}{bytes_written} <=>
  70                              $writes{$a}{bytes_written}} keys %writes) {
  71        my $total_writes = $writes{$fd}{total_writes};
  72        my $bytes_written = $writes{$fd}{bytes_written};
  73        printf("%6u  %10u  %10u\n", $fd, $total_writes, $bytes_written);
  74    }
  75
  76    print_unhandled();
  77}
  78
  79my %unhandled;
  80
  81sub print_unhandled
  82{
  83    if ((scalar keys %unhandled) == 0) {
  84        return;
  85    }
  86
  87    print "\nunhandled events:\n\n";
  88
  89    printf("%-40s  %10s\n", "event", "count");
  90    printf("%-40s  %10s\n", "----------------------------------------",
  91           "-----------");
  92
  93    foreach my $event_name (keys %unhandled) {
  94        printf("%-40s  %10d\n", $event_name, $unhandled{$event_name});
  95    }
  96}
  97
  98sub trace_unhandled
  99{
 100    my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
 101        $common_pid, $common_comm) = @_;
 102
 103    $unhandled{$event_name}++;
 104}
 105
 106
 107