perl實(shí)現(xiàn)blog備份的腳本代碼
更新時(shí)間：2013年02月28日 16:51:06 作者：
用perl實(shí)現(xiàn)的備份sql的代碼，需要的朋友可以參考下
之前總不重視自己的博客，上回一丟才心疼，現(xiàn)在重視起來(lái)，決定定期備份sql。寫(xiě)個(gè)小腳本如下：
#!/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',});
沒(méi)有直接用mysqldump，而是找了這個(gè)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好在那，不過(guò)pod上的example用了USE_REPLACE=>'1'，就照抄了，如果習(xí)慣insert的，在new構(gòu)建對(duì)象時(shí)，不用這個(gè)param就行了。另外這個(gè)Mail::Sender模塊，是在微博上某次評(píng)論時(shí)，發(fā)現(xiàn)很多朋友在用的，我也就放棄一次Net::SMTP_auth，用一次試試，感覺(jué)還不錯(cuò)~~
復(fù)制代碼 代碼如下:
#!/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',});
沒(méi)有直接用mysqldump，而是找了這個(gè)MySQL::Backup模塊，試著看了導(dǎo)出的sql，和mysqldump的結(jié)果是有些不同的。 mysqldump導(dǎo)出的sql一般結(jié)構(gòu)是這樣子：
復(fù)制代碼 代碼如下:
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)是這樣子的：
復(fù)制代碼 代碼如下:
CREATE TABLE `tablename`(ID INT NOT NULL ...);
REPLACE INTO `tablename`(ID,...)VALUES(1,...);
REPLACE INTO `tablename`(ID,...)VALUES(2,...);
其實(shí)我不太清楚replace比insert好在那，不過(guò)pod上的example用了USE_REPLACE=>'1'，就照抄了，如果習(xí)慣insert的，在new構(gòu)建對(duì)象時(shí)，不用這個(gè)param就行了。另外這個(gè)Mail::Sender模塊，是在微博上某次評(píng)論時(shí)，發(fā)現(xiàn)很多朋友在用的，我也就放棄一次Net::SMTP_auth，用一次試試，感覺(jué)還不錯(cuò)~~
相關(guān)文章
這篇文章主要介紹了About Perl（翻譯Perl官網(wǎng)介紹）,本文翻譯自Perl官網(wǎng)介紹,講解什么是Perl、Perl的歷史、Perl 5 特征、Perl在WEB環(huán)境下的使用等內(nèi)容,需要的朋友可以參考下2015-06-06
由于業(yè)務(wù)需要，要查詢(xún)客戶(hù)的ip地址，將部分地區(qū)的客戶(hù)過(guò)濾出來(lái),感謝黑影子和扶凱的幫忙，推薦了IP::QQWry::Decoded這個(gè)模塊，該模塊是專(zhuān)門(mén)用來(lái)讀取qqwry純真數(shù)據(jù)庫(kù)的，用起來(lái)非常簡(jiǎn)單2013-04-04
Perl合并文本的一段實(shí)例代碼，需要的朋友可以參考下2013-02-02
perl命令行參數(shù)內(nèi)建數(shù)組@ARGV淺析
這篇文章主要介紹了perl命令行參數(shù)內(nèi)建數(shù)組@ARGV淺析,本文重點(diǎn)在于講解@ARGV的用法,并通過(guò)實(shí)例來(lái)說(shuō)明,需要的朋友可以參考下2014-06-06
以下的程序，輸出一串?dāng)?shù)字中比平均值大的數(shù)，其中有兩個(gè)問(wèn)題值得注意，具體請(qǐng)看程序中的注釋2013-02-02
Perl訪問(wèn)MSSQL并遷移到MySQL數(shù)據(jù)庫(kù)腳本實(shí)例
這篇文章主要介紹了Perl訪問(wèn)MSSQL并遷移到MySQL數(shù)據(jù)庫(kù)腳本實(shí)例,寫(xiě)了一個(gè)完整的遷移腳本和使用方法,需要的朋友可以參考下2014-06-06
perl的INC變量包含了所有perl module的查找路徑，可以使用perl -V 來(lái)查看INC的值2013-02-02
Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記
這篇文章主要介紹了Perl圖形化包管理工具PPM學(xué)習(xí)使用筆記,本文詳細(xì)講解了什么是PPM、PPM界面的功能按鈕說(shuō)明、PPM如何安裝卸載包等內(nèi)容,需要的朋友可以參考下2015-06-06
這篇文章主要介紹了Perl List::Util模塊使用實(shí)例,本文給出掃描符合條件的某個(gè)列表并取出第一個(gè)符合條件的、求1到1000之間的和 、求一組數(shù)字的最大值與最小值等實(shí)用功能代碼,需要的朋友可以參考下2015-06-06
Perl中使用MIME::Lite發(fā)送郵件實(shí)例
這篇文章主要介紹了Perl中使用MIME::Lite發(fā)送郵件實(shí)例,本文介紹了使用sendmail方式發(fā)送、發(fā)送HTML格式郵件、smtp方式發(fā)送郵件等內(nèi)容,需要的朋友可以參考下2014-09-09