perl實(shí)現(xiàn)blog備份的腳本代碼

2020-02-23 19:45:20

字體：大中小

供稿：網(wǎng)友

　　perl實(shí)現(xiàn)blog備份的腳本代碼大家知道嗎？其實(shí)程序員要實(shí)現(xiàn)代碼的時候，都需要經(jīng)過很長時間的思考，今天就讓武林技術(shù)頻道小編帶你一起來學(xué)習(xí)吧，希望對你有幫助！

#!/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??? => '[email protected]',
#??????????????????????????????? debug?? => 'backup_debug.log',
??????????????????????????????? auth??? => 'LOGIN',
??????????????????????????????? authid? => 'mailuser',
??????????????????????????????? authpwd => 'mailpasswd',
????????????????????????????? };
$sender->MailFile({ to????? => '[email protected]',
??????????????????? subject => 'Backup Blog SQL_'.time(),
??????????????????? msg???? => '3Q',
??????????????????? file??? => 'backup.sql',});

沒有直接用mysqldump，而是找了這個MySQL::Backup模塊，試著看了導(dǎo)出的sql，和mysqldump的結(jié)果是有些不同的。 mysqldump導(dǎo)出的sql一般結(jié)構(gòu)是這樣子：

DROP TABLE IF EXISTS `tablename`;
CREATE TABLE `tablename`(ID INT NOT NULL ...);
LOCK TABLES `tablename` WARITE;
INSERT INTO `tablename` VALUES(...),(...),(...);
UNLOCK TABLES;

而MySQL::Backup導(dǎo)出的sql結(jié)構(gòu)是這樣子的：

CREATE TABLE `tablename`(ID INT NOT NULL ...);
REPLACE INTO `tablename`(ID,...)VALUES(1,...);
REPLACE INTO `tablename`(ID,...)VALUES(2,...);

　　其實(shí)我不太清楚replace比insert好在那，不過pod上的example用了USE_REPLACE=>'1'，就照抄了，如果習(xí)慣insert的，在new構(gòu)建對象時，不用這個param就行了。另外這個Mail::Sender模塊，是在微博上某次評論時，發(fā)現(xiàn)很多朋友在用的，我也就放棄一次Net::SMTP_auth，用一次試試，感覺還不錯。

　　以上就是由武林技術(shù)頻道小編分享的perl實(shí)現(xiàn)blog備份的腳本代碼，希望能幫助到有需要的朋友們，如果您有更好的推薦，歡迎來稿。我們將繼續(xù)為您推送精彩文章。

上一篇：Perl 與 Python 之間的一些異同整理

下一篇：CGI腳本入門學(xué)習(xí)