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

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

昨天下午本想重新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(<F>)
    {
 ($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); #还是没删除干净，空目录自己清理吧 :)