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 by IO written bytes
* File per IO total latency * File per IO total latency
* File per IO read 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); infoprint "No information found or indicators desactivated." if ($nbL == 1);
################################################################################## # Event Wait by read bytes
#io_global_by_wait_by_bytes subheaderprint "Performance schema: Event Wait by read bytes";
# Latest file IO by latency
subheaderprint "Performance schema: Latest FILE IO by latency";
$nbL=1; $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"; infoprint " +-- $nbL: $lQuery";
$nbL++; $nbL++;
} }
infoprint "No information found or indicators desactivated." if ($nbL == 1); 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 #io_global_by_wait_by_latency
# Latest file IO by latency # Latest file IO by latency
subheaderprint "Performance schema: Latest FILE IO by latency"; subheaderprint "Performance schema: Latest FILE IO by latency";