svn資料庫自動釋出程式

<pre name="code" class="sql">use Net::SMTP;
   use HTTP::Date qw(time2iso str2time time2iso time2isoz);
   my $CurrTime = time2iso(time());
   my $dis_mainpublish='中均資本';
my $menu= <<EOF;
DATE:$CurrTime
--------------------------------------------------
                   $dis_mainpublish
--------------------------------------------------
****** 1) "清空釋出目錄" *******
****** 2) "獲得SQL更新目錄" *******
****** 3) "更新後同步SVN" *******
****** 4) "退出系統"   *******
EOF

undef @arr1;
undef @arr2;
my $red="\e[1;31m";
my $green="\e[1;32m";
my $yellow="\e[1;33m";
my $normal="\e[0m";
print $menu;
print  "please choose [1-2-3-4]:\n";
chomp (my $val=<STDIN>);
 use Switch;
        switch ($val) {
             case 1 {
          print "hints->$red請在svn更新後,在執行2操作$normal\n";
          if   ( -e "C:\\update") {system("rd /s/q  C\:\\update") };

          unless  ( -e "C:\\update"){system("mkdir   C\:\\update") }

}


            case 2         
{
#$dirname = "C:\\a1";

$dirname="E:\\svn chkout\\Database2.0\\update_sql\\";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){



    push @arr1,$filename."\n";
}
closedir(DIR);

sort @arr1;
print @arr1;

########################################################################
$dirname = "C:\\update_sql";

opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
while( ($filename = readdir(DIR))){



    push @arr2,$filename."\n";
}
closedir(DIR);
sort @arr2;
print @arr2;



@arr2 = grep {$count{$_} == 1 } grep {++$count{$_}} (@arr1, @arr2);
print "--------增量資訊------------\n";
print "@arr2\n";
use File::Copy::Recursive qw(dircopy);
foreach  (@arr2) {
   print "\$_ is $_\n";
   chop $_;

my $source_dir="E:\\svn chkout\\Database2.0\\update_sql\\$_";
my $target_dir="C:\\update\\$_";

my $copy_ret=dircopy($source_dir,$target_dir) or die $!;
}



}


            case 3          {system("C:\\rsync.bat"); }
            else            { exit; }
}