diff options
| author | Bob Igo <bob@stormlogic.com> | 2009-07-28 18:16:02 (GMT) |
|---|---|---|
| committer | Bob Igo <bob@stormlogic.com> | 2009-07-28 18:16:02 (GMT) |
| commit | 6b6568b3395d069818ab71a9c55f6e92300e4751 (patch) | |
| tree | fea3f2fc9b2f0df144d1c03aa016e5d49bd8f4b9 /abs/extra-testing/graphload/graphload.sh | |
| parent | 1656e7b6111798331fb834bf7d440e36b73425ee (diff) | |
| download | linhes_pkgbuild-6b6568b3395d069818ab71a9c55f6e92300e4751.zip linhes_pkgbuild-6b6568b3395d069818ab71a9c55f6e92300e4751.tar.gz linhes_pkgbuild-6b6568b3395d069818ab71a9c55f6e92300e4751.tar.bz2 | |
graphload uses gnuplot to graph total CPU load; useful in testing
Diffstat (limited to 'abs/extra-testing/graphload/graphload.sh')
| -rwxr-xr-x | abs/extra-testing/graphload/graphload.sh | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/abs/extra-testing/graphload/graphload.sh b/abs/extra-testing/graphload/graphload.sh new file mode 100755 index 0000000..79023ec --- /dev/null +++ b/abs/extra-testing/graphload/graphload.sh @@ -0,0 +1,17 @@ +#!/bin/sh + +MYTICKS=100 +MYINTERVAL=4 # we sample once every $MYINTERVAL seconds +MYINVERSEINTERVAL=0.25 + +top -d $MYINVERSEINTERVAL -n $MYTICKS -b -i | grep Cpu | perl -e "while(<>) { split(','); \$load = 100 - substr @_[3], 0, -3; print \$load,\"\n\";}" > profile +perl -e '$second=0; while(<>) { chop(); $load = $_; print "$second $load "; split " ", $load; print @_[0] + @_[1], "\n"; $second+=0.25;}' < profile > points +echo "set grid +set xrange [0: $(($MYTICKS/$MYINTERVAL))] +set yrange [0: 101] +set xtics 0,$MYINVERSEINTERVAL,$(($MYTICKS/$MYINTERVAL)) +set xlabel \"time\" +set ylabel \"CPU usage\" +plot \"points\" using 1:2 with lines title 'total load' +replot" > gplot.cmds +gnuplot -persist gplot.cmds |