percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-02-27 02:00:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add Query_time histogram to json output.

Browse Source
This commit is contained in:
Daniel Nichter
2013-08-16 18:21:57 -07:00
parent 4fcb52f678
commit c3ff530037
7 changed files with 460 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/JSONReportFormatter.pm
View File

@@ -368,6 +368,20 @@ override query_report => sub {
}
}
# Add reponse time histogram for Query_time
my $vals = $stats->{Query_time}->{all};
if ( defined $vals && scalar %$vals ) {
# TODO: this is broken.
my @buck_tens = $ea->buckets_of(10);
my @distro = map { 0 } (0 .. 7);
my @buckets = map { 0 } (0..999);
map { $buckets[$_] = $vals->{$_} } keys %$vals;
$vals = \@buckets; # repoint vals from given hashref to our array
map { $distro[$buck_tens[$_]] += $vals->[$_] } (1 .. @$vals - 1);
# @distro = qw(1us 10us 100us 1ms 10ms 100ms 1s 10s+)
$class->{histograms}->{Query_time} = \@distro;
} # histogram
$class->{metrics} = \%metrics;
if ( @tables ) {
$class->{tables} = \@tables;