Permalink
Switch branches/tags
Nothing to show
Find file Copy path
573e876 May 15, 2018
1 contributor

Users who have contributed to this file

70 lines (63 sloc) 2.13 KB
#!/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'