Maksytka/perf-tools
1
0
Fork 0
mirror of https://github.com/brendangregg/perf-tools.git synced 2025-12-01 07:26:04 +07:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #36 from DiegoPomares/patch-1

Browse Source 
Added filters
This commit is contained in:
Brendan Gregg
2015-08-07 15:50:45 -07:00
parent 94b23cc96c 0eb3456a91
commit 5a2c24587b
1 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
misc/perf-stat-hist
View File

@@ -41,16 +41,17 @@
# 30-Jun-2014 Brendan Gregg Created this. # 30-Jun-2014 Brendan Gregg Created this.
opt_buckets=0; buckets=; opt_power=0; power=4; opt_max=0; max=$((1024 * 1024)) opt_buckets=0; buckets=; opt_power=0; power=4; opt_max=0; max=$((1024 * 1024))
duration=0; debug=0 opt_filter=0; filter=; duration=0; debug=0
trap ':' INT QUIT TERM PIPE HUP trap ':' INT QUIT TERM PIPE HUP
function usage { function usage {
cat <<-END >&2 cat <<-END >&2
USAGE: perf-stat-hist [-h] [-b buckets|-P power] [-m max] tracepoint USAGE: perf-stat-hist [-h] [-b buckets|-P power] [-m max] [-f filter]
variable [seconds] tracepoint variable [seconds]
-b buckets # specify histogram bucket points -b buckets # specify histogram bucket points
-P power # power-of (default is 4) -P power # power-of (default is 4)
-m max # max value for power-of -m max # max value for power-of
-f filter # specify a filter
-h # this usage message -h # this usage message
eg, eg,
perf-stat-hist syscalls:sys_enter_read count 5 perf-stat-hist syscalls:sys_enter_read count 5
@@ -65,6 +66,8 @@ function usage {
# ... histogram based on these bucket ranges # ... histogram based on these bucket ranges
perf-stat-hist -b 10 syscalls:sys_exit_read ret 5 perf-stat-hist -b 10 syscalls:sys_exit_read ret 5
# ... bifurcate by the value 10 (lowest overhead) # ... bifurcate by the value 10 (lowest overhead)
perf-stat-hist -f 'rwbs == "WS"' block:block_rq_complete nr_sector 5
# ... synchronous writes histogram, 5 seconds
See the man page and example file for more info. See the man page and example file for more info.
END END
@@ -77,12 +80,13 @@ function die {
} }
### process options ### process options
while getopts b:hm:P: opt while getopts b:hm:P:f: opt
do do
case $opt in case $opt in
b) opt_buckets=1; buckets=($OPTARG) ;; b) opt_buckets=1; buckets=($OPTARG) ;;
P) opt_power=1; power=$OPTARG ;; P) opt_power=1; power=$OPTARG ;;
m) opt_max=1; max=$OPTARG ;; m) opt_max=1; max=$OPTARG ;;
f) opt_filter=1; filter="$OPTARG && " ;;
h|?) usage ;; h|?) usage ;;
esac esac
done done
@@ -118,20 +122,20 @@ fi
### build list of tracepoints and filters for each histogram bucket ### build list of tracepoints and filters for each histogram bucket
max=${buckets[${#buckets[@]} - 1]} # last element max=${buckets[${#buckets[@]} - 1]} # last element
((max_i = ${#buckets[*]} - 1)) ((max_i = ${#buckets[*]} - 1))
tpoints="-e $tpoint --filter \"$var < ${buckets[0]}\"" tpoints="-e $tpoint --filter \"$filter $var < ${buckets[0]}\""
awkarray= awkarray=
i=0 i=0
while (( i < max_i )); do while (( i < max_i )); do
if (( i && ${buckets[$i]} <= ${buckets[$i - 1]} )); then if (( i && ${buckets[$i]} <= ${buckets[$i - 1]} )); then
die "ERROR: bucket list must increase in size." die "ERROR: bucket list must increase in size."
fi fi
tpoints="$tpoints -e $tpoint --filter \"$var >= ${buckets[$i]} && " tpoints="$tpoints -e $tpoint --filter \"$filter $var >= ${buckets[$i]} && "
tpoints="$tpoints $var < ${buckets[$i + 1]}\"" tpoints="$tpoints $var < ${buckets[$i + 1]}\""
awkarray="$awkarray buckets[$i]=${buckets[$i]};" awkarray="$awkarray buckets[$i]=${buckets[$i]};"
(( i++ )) (( i++ ))
done done
awkarray="$awkarray buckets[$max_i]=${buckets[$max_i]};" awkarray="$awkarray buckets[$max_i]=${buckets[$max_i]};"
tpoints="$tpoints -e $tpoint --filter \"$var >= ${buckets[$max_i]}\"" tpoints="$tpoints -e $tpoint --filter \"$filter $var >= ${buckets[$max_i]}\""
if (( debug )); then if (( debug )); then
echo buckets: ${buckets[*]} echo buckets: ${buckets[*]}
@@ -147,10 +151,16 @@ else
etext="until Ctrl-C" etext="until Ctrl-C"
cmd="sleep 999999" cmd="sleep 999999"
fi fi
p_tpoint=$tpoint
if [ -n "$filter" ]; then
p_tpoint="$tpoint (Filter: ${filter%????})"
fi
if (( opt_buckets )); then if (( opt_buckets )); then
echo "Tracing $tpoint, specified buckets, $etext..." echo "Tracing $p_tpoint, specified buckets, $etext..."
else else
echo "Tracing $tpoint, power-of-$power, max $max, $etext..." echo "Tracing $p_tpoint, power-of-$power, max $max, $etext..."
fi fi
### run perf ### run perf