perl实现blog备份的脚本代码

之前总不重视自己的博客，上回一丢才心疼，现在重视起来，决定定期备份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    => '[e-mail]',
#                                debug   => 'backup_debug.log',
                                auth    => 'login',
                                authid  => 'mailuser',
                                authpwd => 'mailpasswd',
                              };
$sender->mailfile({ to      => '[e-mail]',
                    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，用一次试试，感觉还不错~~