2010-04-01 23:59:23 -05:00
|
|
|
#!/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
|
2010-12-23 13:10:22 -02:00
|
|
|
perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval
|
