#!/usr/bin/ksh
#
# rwtop - display top read/write bytes by process.
# Written using DTrace (Solaris 10 3/05).
#
# This is measuring reads and writes at the application level. This matches
# read and write system calls.
#
# $Id: rwtop,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $
#
# USAGE: rwtop [-cC] [-j|-Z] [-n name] [-p pid]
# [-t top] [interval [count]]
#
# rwtop # default output, 5 second samples
#
# -C # don't clear the screen
# -c # print counts
# -j # print project ID
# -Z # print zone ID
# -n name # this process name only
# -p PID # this PID only
# -t top # print top number only
# eg,
# rwtop 1 # 1 second samples
# rwtop -t 10 # print top 10 only
# rwtop -n bash # monitor processes named "bash"
# rwtop -C 5 12 # print 12 x 5 second samples
#
# FIELDS:
# ZONE Zone ID
# PROJ Project ID
# UID User ID
# PID Process ID
# PPID Parent Process ID
# CMD Process name
# D Direction, Read or Write
# BYTES Total bytes during sample
# app_r total reads during sample, Kbytes
# app_w total writes during sample, Kbytes
#
# SEE ALSO: iotop
#
# INSPIRATION: top(1) by William LeFebvre
#
# COPYRIGHT: Copyright (c) 2005, 2006 Brendan Gregg.
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License, Version 1.0 only
# (the "License"). You may not use this file except in compliance
# with the License.
#
# You can obtain a copy of the license at Docs/cddl1.txt
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# CDDL HEADER END
#
# Author: Brendan Gregg [Sydney, Australia]
#
# 24-Jul-2005 Brendan Gregg Created this.
# 20-Apr-2006 " " Last update.
##############################
# --- Process Arguments ---
#
### default variables
opt_name=0; opt_pid=0; opt_clear=1; opt_proj=0; opt_zone=0
opt_def=1; opt_bytes=1; filter=0; pname=.; pid=0
opt_top=0; opt_count=0; interval=5; count=-1; top=0
### process options
while getopts Cchn:p:jt:Z name
do
case $name in
C) opt_clear=0 ;;
c) opt_count=1; opt_bytes=0 ;;
n) opt_name=1; pname=$OPTARG ;;
p) opt_pid=1; pid=$OPTARG ;;
j) opt_proj=1; opt_def=0 ;;
t) opt_top=1; top=$OPTARG ;;
Z) opt_zone=1; opt_def=0 ;;
h|?) cat <<-END >&2
USAGE: rwtop [-cC] [-j|-Z] [-n name] [-p pid]
[-t top] [interval [count]]
-C # don't clear the screen
-c # print counts
-j # print project ID
-Z # print zone ID
-n name # this process name only
-p PID # this PID only
-t top # print top number only
eg,
rwtop # default output, 5 second samples
rwtop 1 # 1 second samples
rwtop -t 10 # print top 10 only
rwtop -n bash # monitor processes named "bash"
rwtop -C 5 12 # print 12 x 5 second samples
END
exit 1
esac
done
shift $(( $OPTIND - 1 ))
### option logic
if [[ "$1" > 0 ]]; then
interval=$1; shift
fi
if [[ "$1" > 0 ]]; then
count=$1; shift
fi
if (( opt_proj && opt_zone )); then
opt_proj=0
fi
if (( opt_name || opt_pid )); then
filter=1
fi
if (( opt_clear )); then
clearstr=`clear`
else
clearstr=.
fi
#################################
# --- Main Program, DTrace ---
#
/usr/sbin/dtrace -n '
/*
* Command line arguments
*/
inline int OPT_def = '$opt_def';
inline int OPT_proj = '$opt_proj';
inline int OPT_zone = '$opt_zone';
inline int OPT_clear = '$opt_clear';
inline int OPT_bytes = '$opt_bytes';
inline int OPT_count = '$opt_count';
inline int OPT_name = '$opt_name';
inline int OPT_pid = '$opt_pid';
inline int OPT_top = '$opt_top';
inline int INTERVAL = '$interval';
inline int COUNTER = '$count';
inline int FILTER = '$filter';
inline int TOP = '$top';
inline int PID = '$pid';
inline string NAME = "'$pname'";
inline string CLEAR = "'$clearstr'";
#pragma D option quiet
/*
* Print header
*/
dtrace:::BEGIN
{
/* starting values */
counts = COUNTER;
secs = INTERVAL;
app_r = 0;
app_w = 0;
printf("Tracing... Please wait.\n");
}
/*
* Check event is being traced
*/
sysinfo:::readch,
sysinfo:::writech
/pid != $pid/
{
/* default is to trace unless filtering, */
this->ok = FILTER ? 0 : 1;
/* check each filter, */
(OPT_name == 1 && NAME == execname)? this->ok = 1 : 1;
(OPT_pid == 1 && PID == pid) ? this->ok = 1 : 1;
}
/*
* Increment tallys
*/
sysinfo:::readch
/this->ok/
{
app_r += arg0;
}
sysinfo:::writech
/this->ok/
{
app_w += arg0;
}
/*
* Process event
*/
sysinfo:::readch,
sysinfo:::writech
/this->ok/
{
/* choose statistic to track */
this->value = OPT_bytes ? arg0 : 1;
/*
* Save details
*/
OPT_def ? @out[uid, pid, ppid, execname,
probename == "readch" ? "R" : "W"] = sum(this->value) : 1;
OPT_proj ? @out[curpsinfo->pr_projid, pid, ppid, execname,
probename == "readch" ? "R" : "W"] = sum(this->value) : 1;
OPT_zone ? @out[curpsinfo->pr_zoneid, pid, ppid, execname,
probename == "readch" ? "R" : "W"] = sum(this->value) : 1;
this->ok = 0;
}
/*
* Timer
*/
profile:::tick-1sec
{
secs--;
}
/*
* Print Report
*/
profile:::tick-1sec
/secs == 0/
{
/* fetch 1 min load average */
this->load1a = `hp_avenrun[0] / 65536;
this->load1b = ((`hp_avenrun[0] % 65536) * 100) / 65536;
/* convert counters to Kbytes */
app_r /= 1024;
app_w /= 1024;
/* print status */
OPT_clear ? printf("%s", CLEAR) : 1;
printf("%Y, load: %d.%02d, app_r: %6d KB, app_w: %6d KB\n\n",
walltimestamp, this->load1a, this->load1b, app_r, app_w);
/* print headers */
OPT_def ? printf(" UID ") : 1;
OPT_proj ? printf(" PROJ ") : 1;
OPT_zone ? printf(" ZONE ") : 1;
printf("%6s %6s %-16s %1s",
"PID", "PPID", "CMD", "D");
OPT_bytes ? printf(" %16s\n", "BYTES") : 1;
OPT_count ? printf(" %16s\n", "COUNT") : 1;
/* truncate to top lines if needed */
OPT_top ? trunc(@out, TOP) : 1;
/* print data */
printa("%5d %6d %6d %-16s %1s %16@d\n", @out);
printf("\n");
/* clear data */
trunc(@out);
app_r = 0;
app_w = 0;
secs = INTERVAL;
counts--;
}
/*
* End of program
*/
profile:::tick-1sec
/counts == 0/
{
exit(0);
}
/*
* Cleanup for Ctrl-C
*/
dtrace:::END
{
trunc(@out);
}
'