Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

33 lines (24 sloc) 0.593 kb
#!/usr/bin/perl -w
use strict;
use InnoDBParser;
use DBI;
use DBD::mysql;
use Data::Dumper;
my $dbh = DBI->connect(
"dbi:mysql:database=mysql;host=localhost",
'root',
'daggad'
);
my $parser = InnoDBParser->new;
my ($type, $name, $status) = $dbh->selectrow_array('SHOW ENGINE INNODB STATUS');
my $innodb_status = $parser->parse_status_text(
$status,
0,
);
print Dumper($innodb_status);
#print $innodb_status->{'sections'}->{'lg'}->{'log_ios_s'};
#print "\n";
#print $innodb_status->{'sections'}->{'lg'}->{'log_ios_s'};
#print "\n";
#my $status = <>;
#print $status;
Jump to Line
Something went wrong with that request. Please try again.