tools/perf/scripts/perl/bin/rwtop-report

   1 #!/bin/bash
   2 # description: system-wide r/w top
   3 # args: [interval]
   4 n_args=0
   5 for i in "$@"
   6 do
   7     if expr match "$i" "-" > /dev/null ; then
   8         break
   9     fi
  10     n_args=$(( $n_args + 1 ))
  11 done
  12 if [ "$n_args" -gt 1 ] ; then
  13     echo "usage: rwtop-report [interval]"
  14     exit
  15 fi
  16 if [ "$n_args" -gt 0 ] ; then
  17     interval=$1
  18     shift
  19 fi
  20 perf trace $@ -s ~/libexec/perf-core/scripts/perl/rwtop.pl $interval
  21
  22
  23