• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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扩展正则表达式代码分析
    下一篇:perl中子程序中参数的两种引用(传递)方式介绍
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    perl实现blog备份的脚本代码 perl,实现,blog,备份,的,脚本,