个人中心
gpt4 book ai didi

perl实现blog备份的脚本代码

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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    => '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备份的脚本代码的文章就讲到这里了,如果你想了解更多关于perl实现blog备份的脚本代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

25 4 0
文章推荐： python通过getopt模块如何获取执行的命令参数详解
文章推荐： perl中子程序中参数的两种引用(传递)方式介绍
文章推荐： 一个perl扩展正则表达式代码分析
文章推荐： 基于并发服务器几种实现方法(总结)
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com