|
perl;
|
|
my $dir = $ENV{'MYSQLD_DATADIR'};
|
|
my $size;
|
|
opendir(DIR, $dir) or die $!;
|
|
while (my $file = readdir(DIR))
|
|
{
|
|
|
|
next unless ($file =~ m/\ib_logfile.$/);
|
|
$size = -s "$dir/$file";
|
|
print "The size of the ib_logfile(0/1): $size\n";
|
|
}
|
|
close(DIR);
|
|
exit(0)
|
|
EOF
|