svn数据库自动发布程序
2015-11-14 22:02
246 查看
<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; } }
相关文章推荐
- 【数据库5】过滤查询
- MySQL远程访问设置终极方法
- redis ins 调试
- Oracle 内置视图
- Oracle误删数据、误修改数据恢复
- mysql5.5主从配置
- win64,mysql5.7.9安装
- (5)Oracle基础--约束
- 数据库的准则(范式)
- Django配置Mysql数据库
- 【数据库4】数据的简单查询
- Mac上MySQL忘记root密码且没有权限的处理办法&workbench的一些tips
- 安装SQL Server 2012遇到“需要更新的以前的Visual Studio 2010实例.”
- 【数据库3】数据的增改删
- mysql group by 用法解析
- 20151114 shell脚本控制oracle随系统启动
- Redis常用的命令
- 【数据库2】创建与管理数据库表
- 监听mysql是否挂了
- 【数据库1】数据库的一些基本概念