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

 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