用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 星期一到星期六早上跑即可。

恢復的時候找到最新的一個全備與最新的一個差量備份文件幾個恢復。