hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding * Event Wait by read bytes

Browse source 
* Event Wait by write bytes
This commit is contained in:
root 2016-10-10 16:00:15 +02:00
parent 7b46762a1a
commit 16f0d5d9ff
2 changed files with 17 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
INTERNALS.md
View file

@ -320,4 +320,6 @@
* File by IO written bytes
* File per IO total latency
* File per IO read latency
* File per IO write latency
* File per IO write latency
* Event Wait by read bytes
* Event Wait by write bytes

19
mysqltuner.pl
View file

@ -3594,17 +3594,26 @@ sub mysqsl_pfs {
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
##################################################################################
#io_global_by_wait_by_bytes
# Latest file IO by latency
subheaderprint "Performance schema: Latest FILE IO by latency";
# Event Wait by read bytes
subheaderprint "Performance schema: Event Wait by read bytes";
$nbL=1;
for my $lQuery(select_array ('select thread, file, latency, operation from latest_file_io ORDER BY latency LIMIT 10;')) {
for my $lQuery(select_array ("use sys;(select event_name, total_read from io_global_by_wait_by_bytes where total_read like '%MiB' order by total_read DESC) UNION (select event_name, total_read from io_global_by_wait_by_bytes where total_read like '%KiB' order by total_read DESC LIMIT 15);")) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
# Event Wait by write bytes
subheaderprint "Performance schema: Event Wait written bytes";
$nbL=1;
for my $lQuery(select_array ("use sys;(select event_name, total_written from io_global_by_wait_by_bytes where total_written like '%MiB' order by total_written DESC) UNION (select event_name, total_written from io_global_by_wait_by_bytes where total_written like '%KiB' order by total_written DESC LIMIT 15);")) {
infoprint " +-- $nbL: $lQuery";
$nbL++;
}
infoprint "No information found or indicators desactivated." if ($nbL == 1);
##################################################################################
#io_global_by_wait_by_latency
# Latest file IO by latency
subheaderprint "Performance schema: Latest FILE IO by latency";