Quelle  optimize_table.inc   Sprache: Delphi

# run a check script to verify sst files reduced enough during each optimize table
perl;

$size += -s $_ for (<$ENV{datadir}/#rocksdb/*.sst>);
$file= "$ENV{MYSQL_TMP_DIR}/sst_size.dat";

if (-f $file) {
  open(F, '<', $file) || die("Can't open file $file: $!");
  $old = <F>;
  close F;
  if ($old - $size < 1e6) {
    print "sst file reduction was not enough $old -> $size (minimum 1000kb)\n";
  } else {
    print "sst file reduction ok\n";
  }
}
open(F, '>', $file) || die("Can't open file $file: $!");
print F $size;
close F;
EOF