之前總不重視自己的博客，上回一丟才心疼，現(xiàn)在重視起來，決定定期備份sql。寫個小腳本如下：
復制代碼 代碼如下:
#!/usr/bin/perl
use warnings;
use strict;
use MySQL::Backup;
use Mail::Sender;
open my $tmp_sql, '>', "backup.sql";
my $mb = new MySQL::Backup('dbname', 'localhost', 'dbuser', 'dbpasswd', {'USE_REPLACE' => 1, 'SHOW_TABLE_NAMES' => 1});
print $tmp_sql $mb->create_structure();
print $tmp_sql $mb->data_backup();
close $tmp_sql;
my $sender = new Mail::Sender { smtp => 'smtp.163.com',
from => 'mailuser@163.com',
# debug => 'backup_debug.log',
auth => 'LOGIN',
authid => 'mailuser',
authpwd => 'mailpasswd',
};
$sender->MailFile({ to => 'mailuser@gmail.com',
subject => 'Backup Blog SQL_'.time(),
msg => '3Q',
file => 'backup.sql',});
沒有直接用mysqldump，而是找了這個MySQL::Backup模塊，試著看了導出的sql，和mysqldump的結果是有些不同的。 mysqldump導出的sql一般結構是這樣子：
復制代碼 代碼如下:
DROP TABLE IF EXISTS `tablename`;
CREATE TABLE `tablename`(ID INT NOT NULL ...);
LOCK TABLES `tablename` WARITE;
INSERT INTO `tablename` VALUES(...),(...),(...);
UNLOCK TABLES;
而MySQL::Backup導出的sql結構是這樣子的：
復制代碼 代碼如下:
CREATE TABLE `tablename`(ID INT NOT NULL ...);
REPLACE INTO `tablename`(ID,...)VALUES(1,...);
REPLACE INTO `tablename`(ID,...)VALUES(2,...);
其實我不太清楚replace比insert好在那，不過pod上的example用了USE_REPLACE=>'1'，就照抄了，如果習慣insert的，在new構建對象時，不用這個param就行了。另外這個Mail::Sender模塊，是在微博上某次評論時，發(fā)現(xiàn)很多朋友在用的，我也就放棄一次Net::SMTP_auth，用一次試試，感覺還不錯~~
