奇迹私服perl实现blog备份的脚本代码

作者:kgmucom   在线用户:23
风之恋奇迹私服技术网是一家提供最新互联网编程技术网站

  perl实现blog备份的脚本代码大家知道吗?其实程序员要实现代码的时候,都需要经过很长时间的思考,今天就让爱站技术频道小编带你一起来学习吧,希望对你有帮助!

 

#!/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实现blog备份的脚本代码,希望能帮助到有需要的朋友们,如果您有更好的推荐,欢迎来稿。我们将继续为您推送精彩文章。

提供最全面的奇迹sf开服版本和最新的奇迹私服开服技术信息,奇迹私服文库让每一位奇迹私服玩家找到自己需要的版本技术文章

上一篇:零基础易语言入门教程(三)之了解控制台程序

下一篇:java volatile关键字的含义

请发表您的评论