2026-03-12 20:23:15

tpt/dtrace/dstackprof.sh

@@ -0,0 +1,69 @@
+#!/bin/ksh
+#
+# Copyright 2018 Tanel Poder. All rights reserved. More info at http://tanelpoder.com
+# Licensed under the Apache License, Version 2.0. See LICENSE.txt for terms & conditions.
+#################################################################################
+#
+# File name:   dstackprof.sh         v1.02 29-Aug-2008
+# Purpose:     Samples target process stack using DTrace, strips the PC function 
+#              offsets from output and re-aggregates 
+#
+# Author:      Tanel Poder
+# Copyright:   (c) http://www.tanelpoder.com
+#
+# Usage:       dstackprof.sh <PID> [SECONDS] [STACKS] [FRAMES]
+# 	        
+#	        
+# Other:       
+#              
+#              
+#
+#################################################################################
+
+DEFAULT_SECONDS=5
+DEFAULT_FRAMES=100
+DEFAULT_STACKS=20
+
+FREQUENCY=1001
+
+[ $# -lt 1 ] && echo "  Usage: $0 <PID> [SECONDS] [STACKS] [FRAMES]\n" && exit 1
+[ -z $2 ] && SECONDS=$DEFAULT_SECONDS || SECONDS=$2
+[ -z $3 ] && STACKS=$DEFAULT_STACKS || STACKS=$3
+[ -z $4 ] && FRAMES=$DEFAULT_FRAMES || FRAMES=$4
+PROCESS=$1
+
+echo
+echo "DStackProf v1.02 by Tanel Poder ( http://www.tanelpoder.com )"
+echo "Sampling pid $PROCESS for $SECONDS seconds with stack depth of $FRAMES frames..."
+echo
+
+dtrace -q -p $PROCESS -n '
+profile-'$FREQUENCY'
+/pid == $target/ { 
+    @u[ustack('$FRAMES')] = count();
+    @k[stack('$FRAMES')]  = count();
+} 
+tick-1sec
+/i++ >= '$SECONDS'/ {
+    exit(0);
+}
+END { 
+    printa(@u);
+    printa(@k);
+}
+' |     sed 's/^ *//;/^$/d;s/+.*$//;s/^oracle`//g' | \
+        awk '/^$/{ printf "\n" }/^[0-9]*$/{ printf ";%s\n", $1 }/[a-z]/{ printf "%s<", $1 }END{ printf "\n" }' | \
+        sed '/^;/d' | \
+        sort | \
+	awk -F";" '
+            /NR==1/{ sum=0; total=0; oldstack=$1 }
+            { 
+              if (oldstack==$1) {sum+=$2;total+=$2} 
+              else {printf "%d samples with stack below<__________________<%s\n", sum, oldstack; oldstack=$1; sum=$2; total+=$2} 
+            }
+            END {printf "%d samples with stack below<__________________<%s\n%d Total samples captured\n", sum, oldstack, total}
+        ' | \
+        sort -bn | \
+        tail -$((STACKS+1)) | \
+        tr '<' '\n'
+