[perl] 批量跳过mysql slave错误小脚本
2009年02月20日 16:24
发现mysql slave服务器经常因为一些特殊字符或者符号产生的更新语句报错,整个同步也会因此而卡在那,最初的办法只是手动去出错的机器,执行下面三条sql语句,跳过错误即可。 slave stop; set GLOBAL SQL_SLAVE_SKIP_COUNTER=1; slave start; 一台slave机器用这样方法还行,多台就麻烦了,就顺手写了个简单的perl脚本,方便统一跳过错误,代码如下: #!/usr/bin/env perl use strict; use warnings; my @hosts = qw/ 192.168.1.123:root:tt1234 192.168.1.124:root:tt1234 /; foreach (@hosts) { my ($ip, $usr, $pass) = split ':'; print "// ----- $ip/n"; slaveskip($ip, $usr, $pass); print "/n"; } # mysql slave skip sub slaveskip { my ($ip, $usr, $pass) = @_; my $info = `mysql -u$usr -p$pass -h$ip -e 'show slave status//G;'`; # Slave_SQL_Running is No if (($info =~ /Slave_IO_Running: Yes/) && ($info =~ /Slave_SQL_Running: No/)) { my $errno = $1 if $info =~ /Last_Errno: (/d*)/; my $error = $1 if $info =~ /Last_Error: (.*)/; if ($errno > 0 && length($error) > 0) { print "slave error**/n"; print "errno : $errno/nerror : $error/n"; system("mysql -u$usr -p$pass -h$ip -e 'slave stop;'"); system("mysql -u$usr -p$pass -h$ip -e 'set GLOBAL SQL_SLAVE_SKIP_COUNTER=1;'"); system("mysql -u$usr -p$pass -h$ip -e 'slave start;'"); } } else { print "salve ok./n"; } } |