perl实现blog备份的脚本代码
perl实现blog备份的脚本代码
发布时间:2016-12-28 来源:查字典编辑
摘要:之前总不重视自己的博客,上回一丢才心疼,现在重视起来,决定定期备份sql。写个小脚本如下:复制代码代码如下:#!/usr/bin/perlu...

之前总不重视自己的博客,上回一丢才心疼,现在重视起来,决定定期备份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模块,是在微博上某次评论时,发现很多朋友在用的,我也就放弃一次Net::SMTP_auth,用一次试试,感觉还不错~~

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新perl学习
热门perl学习
脚本专栏子分类