linux-stable-rt/tools/perf/scripts/perl/bin/rwtop-report

24 lines
400 B
Bash

#!/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 "$PERF_EXEC_PATH"/scripts/perl/rwtop.pl $interval