自动定期检查mysql 服务器所有数据库Myisam 表的状态

由于myisam 表容易损坏,故可以定期进行一次检查。

脚本如下:


#!/usr/bin/perl -w
use strict;
use DBI;

$|=1;

my $DB_HOST             =       '127.0.0.1';
my $DB_PORT             =       3306;
my $DB_LOGIN    =       'checkuser';
my $DB_PASSWD   =       'checkpwd';
my @DB_Name_all=('callcenter','asterisk');
my @MyisamTable=();
foreach my $DB_DATABASE (@DB_Name_all){
  my $dsn = "dbi:mysql:$DB_DATABASE:$DB_HOST:$DB_PORT";
  my $dbiconnect = DBI->connect($dsn, $DB_LOGIN, $DB_PASSWD);
  my $sql="SHOW TABLE status";
  my $sth=$dbiconnect->prepare($sql);
  $sth->execute();
  my $rslt_rows=$sth->rows;
  if($rslt_rows>0)
   {
    while (my ($table_name,$table_engine)=$sth->fetchrow_array())
        {
         if($table_engine eq 'MyISAM')
           {
            my $sql_check="CHECK TABLE $table_name";
            my $sth_check=$dbiconnect->prepare($sql_check);
            $sth_check->execute;
            my($TableName,$Op,$Msg_type,$Msg_text) =$sth_check->fetchrow_array();
            my $log=$TableName." ".$Op." ".$Msg_type." ".$Msg_text;
            &msgLog($log);
           }

        }
   }
}
$dbiconnect->disconnect;
sub msgLog() {
  my ($msg) = @_;
  open(LOG, ">>/var/log/myIsamcheck.log");
  print LOG scalar localtime();
  print LOG " ",$msg,"\n";
  close(LOG);
}



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值