一直以来是用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 星期一到星期六早上跑即可。 恢复的时候找到最新的一个全备与最新的一个差量备份文件几个恢复。
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 [email protected] 举报，一经查实，本站将立刻删除。
