svn数据库自动发布程序

最新推荐文章于 2024-07-03 08:14:50 发布

scan724

最新推荐文章于 2024-07-03 08:14:50 发布

阅读量179

点赞数

分类专栏： zj-脚本

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/49839775

版权

zj-脚本专栏收录该内容

93 篇文章 ¥39.90 ¥99.00

订阅专栏

这是一个Perl脚本，用于实现SVN更新后的自动发布。用户可以选择清空发布目录、获取SQL更新目录、更新后同步到SVN或者退出系统。脚本首先检查并清理C:\update目录，然后比较两个目录的差异，找出增量文件并进行同步。最后调用C:\rsync.bat进行进一步的同步操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<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 c

了解本专栏