| Tom Zanussi | 47902f3 | 2010-04-01 23:59:23 -0500 | [diff] [blame^] | 1 | #!/bin/bash |
| 2 | # description: system-wide r/w top | ||||
| 3 | # args: [interval] | ||||
| 4 | n_args=0 | ||||
| 5 | for i in "$@" | ||||
| 6 | do | ||||
| 7 | if expr match "$i" "-" > /dev/null ; then | ||||
| 8 | break | ||||
| 9 | fi | ||||
| 10 | n_args=$(( $n_args + 1 )) | ||||
| 11 | done | ||||
| 12 | if [ "$n_args" -gt 1 ] ; then | ||||
| 13 | echo "usage: rwtop-report [interval]" | ||||
| 14 | exit | ||||
| 15 | fi | ||||
| 16 | if [ "$n_args" -gt 0 ] ; then | ||||
| 17 | interval=$1 | ||||
| 18 | shift | ||||
| 19 | fi | ||||
| 20 | perf trace $@ -s ~/libexec/perf-core/scripts/perl/rwtop.pl $interval | ||||
| 21 | |||||
| 22 | |||||
| 23 | |||||