1perl;
2 my $dir = $ENV{'MYSQLD_DATADIR'};
3 my $size;
4 opendir(DIR, $dir) or die $!;
5 while (my $file = readdir(DIR))
6 {
7
8   next unless ($file =~ m/\ib_logfile.$/);
9   $size = -s "$dir/$file";
10   print "The size of the ib_logfile(0/1): $size \n";
11 }
12 close(DIR);
13 exit(0)
14EOF
15