用Perl 实现 SVN 差异备份

用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 "没有新版本需要增量备份!\n";
    }
    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 星期一到星期六早上跑即可。

恢复的时候找到最新的一个全备与最新的一个差量备份文件几个恢复。