用Perl 实现 SVN 差异备份

一直以来是用rsync来备份svn，最近恢复了一个2009年的SVN的备份。突然想还是用svnadmin dump 备份出来比较方便（这也是官方推崇备份方式，恢复起来有点慢），好管理。决定用perl 来实现（因为最近在学习perl）:备份的思路就是首先读取一个项目，然后全备，并且把版本写入到一个文件，差异备份脚本备份时读取这个文件的中的版本号，如果版本号不同，则备份。全备份脚本：svn_full_backup.pl#！/usr/bin/perl -w
use POSIX qw（strftime）;
my $SVN_BACKUP="/www/svn_backup"; ###备份路径open （FILE,"/usr/local/script/svn_backup/project.log"） ||die"can not open the file: $！"; ####读取要备份的项目，好多，这个是手工学进去的。
while （defined （$MYPROJECT=<FILE>））{
chomp （$MYPROJECT）;
my $SVN_REPOS="/home/svn/$MYPROJECT";
my $YOUNGEST=`/usr/bin/svnlook youngest $SVN_REPOS`;
my $mytime=strftime（"%Y-%m-%d",localtime）; ####取得系统当前时间
my $svn_backup_shell="/usr/bin/svnadmin dump --incremental $SVN_REPOS | gzip > $SVN_BACKUP/$MYPROJECT.dump.$mytime.gz";
`$svn_backup_shell`;
open（LOG,">$SVN_BACKUP/backuplist/$MYPROJECT"）; ###写入最新版本号
print LOG $YOUNGEST;
close LOG;
}
close FILE;差异备份脚本：svn_incremental_backup.pl#！/usr/bin/perl -w
use POSIX qw（strftime）;
my $SVN_BACKUP="/www/svn_backup";
open （FILE,"/usr/local/shell/svn_backup/project.log"） ||die"can not open the file: $！";
while （defined （$MYPROJECT=<FILE>））{
    chomp （$MYPROJECT）;
    my $SVN_REPOS="/home/svn/$MYPROJECT";
    my $YOUNGEST=`/usr/bin/svnlook youngest $SVN_REPOS`;
    chomp $YOUNGEST;
    my $mytime=strftime（"%Y-%m-%d",localtime）;
    #########get full svn version
    open （VERSION,"$SVN_BACKUP/backuplist/$MYPROJECT"） || die "can not open the file: $！";
    my $FULL_VERSION=<VERSION>;
    chomp （$FULL_VERSION）;
    if （$FULL_VERSION eq $YOUNGEST）
    {
      print "没有新版本需要增量备份！ ";
    }
    else
    {
       my $FRIST_VERSION=$FULL_VERSION + 1;
       my $svn_backup_shell="/usr/bin/svnadmin dump --incremental -r $FRIST_VERSION:$YOUNGEST $SVN_REPOS | gzip > $SVN_BACKUP/incremental/$MYPROJECT.dump.$mytime.gz"
;
       `$svn_backup_shell`;
    }
close VERSION;
}
close FILE;设置cront svn_full_backup.pl 星期天早上跑，svn_incremental_backup.pl 星期一到星期六早上跑即可。恢复的时候找到最新的一个全备与最新的一个差量备份文件几个恢复。RedHat 5.5 无损缩小 LVM 空间如何修改Linux的TTL值相关资讯 svn Perl

Ubuntu下Apache+SVN+submin实现WEB （07月22日）
CentOS6.4 搭建SVN管理服务（05月02日）
ReadHat Linux 5.5 安装SVN （01月11日）

基于SVN的项目管理——集中与分散（05月16日）
Perl的Notepad++环境配置（04月23日）
CentOS6.5安装SVN & 可视化管理工（12/19/2015 13:50:24）

本文评论查看全部评论（0）