<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 "
svn数据库自动发布程序
最新推荐文章于 2024-02-25 17:11:14 发布