trafficserver git commit: Updated to show 99th percentile

[bc...@apache.org]

Repository: trafficserver
Updated Branches:
  refs/heads/master 5defa51cd -> 46156a8d8


Updated to show 99th percentile


Project: http://git-wip-us.apache.org/repos/asf/trafficserver/repo
Commit: http://git-wip-us.apache.org/repos/asf/trafficserver/commit/46156a8d
Tree: http://git-wip-us.apache.org/repos/asf/trafficserver/tree/46156a8d
Diff: http://git-wip-us.apache.org/repos/asf/trafficserver/diff/46156a8d

Branch: refs/heads/master
Commit: 46156a8d8974ebf5df1832cd1bf2dd3650c1c489
Parents: 5defa51
Author: Bryan Call <bc...@apache.org>
Authored: Mon Jul 6 11:17:30 2015 -0700
Committer: Bryan Call <bc...@apache.org>
Committed: Mon Jul 6 11:17:30 2015 -0700

----------------------------------------------------------------------
 tools/slow_log_report.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/trafficserver/blob/46156a8d/tools/slow_log_report.pl
----------------------------------------------------------------------
diff --git a/tools/slow_log_report.pl b/tools/slow_log_report.pl
index 19cf8a1..597b2f5 100755
--- a/tools/slow_log_report.pl
+++ b/tools/slow_log_report.pl
@@ -36,7 +36,7 @@ sub addStat($$$) {
 sub displayStat($) {
   my($stats) = @_;
 
-  printf("%25s %10s %10s %10s %10s %10s %10s %10s\n", "key", "total", "count", "mean", "median", '95th', "min", "max");
+  printf("%25s %10s %10s %10s %10s %10s %10s %10s %10s\n", 'key', 'total', 'count', 'mean', 'median', '95th', '99th', 'min', 'max');
   foreach my $key ('ua_begin', 'ua_first_read', 'ua_read_header_done', 'cache_open_read_begin', 'cache_open_read_end', 'dns_lookup_begin', 'dns_lookup_end', 'server_connect', 'server_first_read', 'server_read_header_done', 'server_close', 'ua_close', 'sm_finish') {
 
     my $count = $stats->{$key}->{count};
@@ -49,12 +49,13 @@ sub displayStat($) {
     my @sorted = sort {$a <=> $b} @{$stats->{$key}->{values}};
     my $median = $sorted[int($count/2)];
     my $p95th = $sorted[int($count * .95)];
+    my $p99th = $sorted[int($count * .99)];
     my $min = $sorted[0];
     my $max = $sorted[$count - 1];
     my $mean = 0;
     $mean = $total / $count if $count > 0;
 
-    printf("%25s %10.2f %10.2f %10.2f %10.2f %10.2f %10.2f %10.2f\n", $key, $total, $count, $mean, $median, $p95th, $min, $max);
+    printf("%25s %10.2f %10.2f %10.2f %10.2f %10.2f %10.2f %10.2f %10.2f\n", $key, $total, $count, $mean, $median, $p95th, $p99th, $min, $max);
   }
   print "NOTE: Times are in seconds\n";
 }