perl程序自动找回cvs仓库中误删除的文件

来源：百度文库编辑：神马文学网时间：2024/04/27 20:09:57

昨天下午本想重新checkout仓库中一个模块（比如：moduleABC）里的某个子文件夹（比如：subDir），因本身就在这个子文件夹subDir中，用`cvs co -d . moduleABC/subDir`（.没作用啊，需要..\subDir才可以）结果就在本地嵌套了一个新的工作目录moduleABC，想删除这个新的文件夹moduleABC，忙晕了就直接
cvs rm -f moduleABC
cvs ci -m ""
结果把CVS仓库中moduleABC模块下subDir文件夹的代码全给删除了，
懊悔万分啊，不是害怕找不回来这些文件，方法很简单就是拿回dead前的一个版本，重新cvs add file;cvs ci file就行了。痛苦的是有几百个文件，这还不把我累晕倒。
没办法这种郁闷的体力活只能让可爱的Perl来干了，下面是Perl代码。我的环境是Windows平台，Linux平台没有测试过。
主要功能：找回cvs仓库中误删除的文件，需要指定$moduleName和$data（不能把不是误删的找回来）两个变量，我是假设环境变量CVSROOT已经设置过了，如果没有请你设置好再用，不然cvs老带上一长串命令用起来也很不爽。
另外，我假设删除之后没有手动恢复过，就是只恢复仓库模块中状态：dead为最后一个版本且匹配日期$data的那些文件。
//-----------------------------------------------------------
#! perl -w
use strict;
use warnings;
my $moduleName = "这里给出module名，请用你自己的替换"; # 模块名,假定已经设置环境变量CVSROOT
my $data = ‘2005/09/26‘; # 误删除操作的日期，格式：/^\d{4}\/\d{2}\/\d{2}$/，如：‘2005/09/26‘
#------------------------------
my $tmpdir = ‘c:/temp‘; # 临时工作目录，最后请自己手动清理这个目录的空文件吧
my $logName = ‘cvslog.txt‘; # 临时日志文件
#------------------------------
mkdir $tmpdir;
my $log = "$tmpdir/$logName";
my %fileName_lastVersion;
sub parseLog
{
open F,$log || die("Can‘t open file $log:$!");
my $find_dead_version = 0;my $rfdv = \$find_dead_version; # No.?,find:-1
my $find_file_name = ‘‘;my $rffn = \$find_file_name;
while()
{
($find_file_name,$find_dead_version)=($1,0),next if(/^Working file: (.*)/); #,AUR5=ND<~C{(B
$find_dead_version=-1,next if(1==$find_dead_version && m!^date: $data.*author.*state: dead;!); #找到dead版本号
$find_dead_version>=0 && /^revision ([\d\.]*)/ && ++$find_dead_version; # revision count
$fileName_lastVersion{$$rffn}=$1,$$rffn=‘‘,next if(‘‘ ne $$rffn && -1==$$rfdv && /^revision ([\d\.]*)/); #找到last版本号
}
close F;
# while( my($k,$v) = each(%fileName_lastVersion) ){print "fileName:$k \t<==>\t lastVersion:$v\n";}
}
chdir("$tmpdir");system("cvs -Q co $moduleName");chdir("$moduleName");system("cvs -Q log -T > $log");
parseLog();
while( my($k,$v) = each(%fileName_lastVersion) )
{
chdir("$tmpdir/$moduleName");
my ($file_path,$file_name) = $k =~ /^(.*)\/(.*)/; # sub Directory
($file_path,$file_name)=(‘.‘,$k) if $k !~ /\//; # root Directory
print "$file_path\t$file_name\n";
chdir $file_path;
system("cvs up -r $v -p $file_name > $file_name");
system("cvs add $file_name");system("cvs ci -m ‘‘ $file_name");
}
(my $delpath = "$tmpdir/$moduleName") =~ tr/\//\\/;
system("del /s /q /f $delpath"); #没删除干净，全剩下空目录，自己动手吧
rmdir($delpath); #还是没删除干净，空目录自己清理吧 :)

perl程序自动找回cvs仓库中误删除的文件不用任何程序将删除的文件找回不用任何程序将删除的文件找回！找回删除的文件找回删除的文件找回删除的文件找回误删除文件找回已在回收站中删除掉的文件如何找回删除的文件如何找回删除的文件????????? 怎样找回删除的文件找回删除文件的方法删除的文件怎么找回如何找回删除的文件怎样找回删除的文件找回被删除的文件教你如何找回被误删除的文件巧用Ghost镜像找回误删除的文件教你找回被删除的文件如何找回删除的文件a 怎么找回回收站删除的文件如何找回删除了的文件01 如何找回回收站被删除的文件怎样找回回收站删除的文件