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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#!/bin/bash
# description: system-wide r/w top
# args: [interval]
n_args=0
for i in "$@"
do
    if expr match "$i" "-" > /dev/null ; then
	break
    fi
    n_args=$(( $n_args + 1 ))
done
if [ "$n_args" -gt 1 ] ; then
    echo "usage: rwtop-report [interval]"
    exit
fi
if [ "$n_args" -gt 0 ] ; then
    interval=$1
    shift
fi
perf trace $@ -s ~/libexec/perf-core/scripts/perl/rwtop.pl $interval