1 #!/usr/bin/sh 2 # 3 # cpudists - print CPU time distributions by Kernel/Idle/Processes. 4 # Written using DTrace (Solaris 10 3/05). 5 # 6 # $Id: cpudists,v 1.1.1.1 2015/09/30 22:01:07 christos Exp $ 7 # 8 # USAGE: cpudists [-ahV] [-t top] [interval [count]] 9 # 10 # -a # print all processes 11 # -V # don't print timestamps 12 # -t num # print top num only 13 # eg, 14 # cpudists 1 # print every 1 second 15 # cpudists -a 10 # print all processes every 10 secs 16 # 17 # 18 # FIELDS: 19 # value The following or the process name, 20 # IDLE Idle time - CPU running idle thread 21 # KERNEL Kernel time - Kernel servicing interrupts, ... 22 # PROCESS Process time - PIDs running on the system 23 # count Number of occurances at least this duration (ns) 24 # 25 # NOTES: 26 # * This takes into account multiple CPU servers, the total 27 # seconds consumed will be a multiple of the CPU count and interval. 28 # 29 # SEE ALSO: cputimes 30 # 31 # COPYRIGHT: Copyright (c) 2005 Brendan Gregg. 32 # 33 # CDDL HEADER START 34 # 35 # The contents of this file are subject to the terms of the 36 # Common Development and Distribution License, Version 1.0 only 37 # (the "License"). You may not use this file except in compliance 38 # with the License. 39 # 40 # You can obtain a copy of the license at Docs/cddl1.txt 41 # or http://www.opensolaris.org/os/licensing. 42 # See the License for the specific language governing permissions 43 # and limitations under the License. 44 # 45 # CDDL HEADER END 46 # 47 # Author: Brendan Gregg [Sydney, Australia] 48 # 49 # 27-Apr-2005 Brendan Gregg Created this. 50 # 22-Sep-2005 " " Fixed key corruption bug. 51 # 22-Sep-2005 " " Last update. 52 # 53 54 55 ############################## 56 # --- Process Arguments --- 57 # 58 opt_all=0; opt_time=1; opt_top=0; top=0; interval=1; count=1 59 60 while getopts aht:V name 61 do 62 case $name in 63 a) opt_all=1 ;; 64 V) opt_time=0 ;; 65 t) opt_top=1; top=$OPTARG ;; 66 h|?) cat <<-END >&2 67 USAGE: cpudists [-ahV] [-t top] [interval [count]] 68 cpudists # default output 69 -a # print all processes 70 -V # don't print times 71 -t num # print top num only 72 END 73 exit 1 74 esac 75 done 76 shift `expr $OPTIND - 1` 77 78 if [ "$1" -gt 0 ]; then 79 interval=$1; count=-1; shift 80 fi 81 if [ "$1" -gt 0 ]; then 82 count=$1; shift 83 fi 84 85 86 ################################# 87 # --- Main Program, DTrace --- 88 # 89 /usr/sbin/dtrace -n ' 90 #pragma D option quiet 91 92 /* 93 * Command line arguments 94 */ 95 inline int OPT_all = '$opt_all'; 96 inline int OPT_time = '$opt_time'; 97 inline int OPT_top = '$opt_top'; 98 inline int TOP = '$top'; 99 inline int INTERVAL = '$interval'; 100 inline int COUNTER = '$count'; 101 102 /* Initialise variables */ 103 dtrace:::BEGIN 104 { 105 cpustart[cpu] = 0; 106 counts = COUNTER; 107 secs = INTERVAL; 108 } 109 110 /* Flag this thread as idle */ 111 sysinfo:unix:idle_enter:idlethread 112 { 113 idle[cpu] = 1; 114 } 115 116 /* Save kernel time between running threads */ 117 sched:::on-cpu 118 /cpustart[cpu]/ 119 { 120 this->elapsed = timestamp - cpustart[cpu]; 121 @Procs["KERNEL"] = quantize(this->elapsed); 122 } 123 124 /* Save the elapsed time of a thread */ 125 sched:::off-cpu, 126 sched:::remain-cpu, 127 profile:::profile-1sec 128 /cpustart[cpu]/ 129 { 130 /* determine the name for this thread */ 131 program[cpu] = pid == 0 ? idle[cpu] ? "IDLE" : "KERNEL" : 132 OPT_all ? execname : "PROCESS"; 133 134 /* save elapsed */ 135 this->elapsed = timestamp - cpustart[cpu]; 136 @Procs[program[cpu]] = quantize(this->elapsed); 137 cpustart[cpu] = timestamp; 138 } 139 140 /* Record the start time of a thread */ 141 sched:::on-cpu, 142 sched:::remain-cpu 143 { 144 idle[cpu] = 0; 145 cpustart[cpu] = timestamp; 146 } 147 148 profile:::tick-1sec 149 { 150 secs--; 151 } 152 153 /* Print time */ 154 profile:::tick-1sec 155 /secs == 0 && OPT_time/ 156 { 157 printf("%Y,\n", walltimestamp); 158 } 159 160 /* Print report */ 161 profile:::tick-1sec 162 /secs == 0/ 163 { 164 OPT_top ? trunc(@Procs, TOP) : 1; 165 printa("%16s %@16d\n", @Procs); 166 trunc(@Procs); 167 secs = INTERVAL; 168 counts--; 169 } 170 171 /* End of program */ 172 profile:::tick-1sec 173 /counts == 0/ 174 { 175 exit(0); 176 } 177 178 /* cleanup for Ctrl-C */ 179 dtrace:::END 180 { 181 trunc(@Procs); 182 } 183 ' 184 185
Indexes created Sun Apr 26 00:22:38 UTC 2026