diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Multiple/histo.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Multiple/histo.pl | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/TAO/orbsvcs/tests/EC_Multiple/histo.pl b/TAO/orbsvcs/tests/EC_Multiple/histo.pl deleted file mode 100755 index dcd13f27320..00000000000 --- a/TAO/orbsvcs/tests/EC_Multiple/histo.pl +++ /dev/null @@ -1,76 +0,0 @@ -# -# $Id$ -# -# Extract a histogram, minimum, maximum and average from a file, -# filtering by a given RE. -# - -eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' - & eval 'exec perl -S $0 $argv:q' - if 0; - -# The first three lines above let this script run without specifying the -# full path to perl, as long as it is in the user's PATH. -# Taken from perlrun man page. - -use Getopt::Std; - -$opt_k = 'Latency\[LCL,[A-Z]*\]'; -$opt_r = 1; - -getopts ('k:r:'); - -$max = 0; -$min = 0; -$sum = 0; -$sum2 = 0; -$n = 0; -%histo = (); - -while (<>) { - if (!m/^$opt_k/) { - next; - } - chop; - @f = split(/:/, $_); - if ($n == 0) { - $min = $f[1]; - $max = $f[1]; - $sum = $f[1]; - $sum2 = $f[1] * $f[1]; - $n = 1; - } else { - if ($min > $f[1]) { - $min = $f[1]; - } - if ($max < $f[1]) { - $max = $f[1]; - } - $sum += $f[1]; - $sum2 += $f[1] * $f[1]; - $n++; - } - $i = int ($f[1] * $opt_r); - $histo{"$i"}++; -} - -print "Latency results for $opt_k:\n"; -$s2 = $sum2 / ($n - 1) - $sum / $n * $sum / ($n - 1); -if ($s2 >= 0) { - $sigma = int(sqrt ( $s2 )); -} else { - print "Error: $sum, $sum2, $n\n"; - $sigma = $sum2; -} - -print "Min: $min,", - " Max: $max,", - " Avg: ", int($sum / $n), - " Dev: ", $sigma, - "\n"; - -while ( ($key,$value) = each %histo ) { - $t = ($key / $opt_r); - print $t, " ", 100 * $value / $n, "\n"; -} - |