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