linux ftp perl上传脚本

作者佚名技术来源 Linux系统浏览发布时间 2012-04-24

自从实现FTP上传功能之后就一直未停止过对脚本的改进,但改来改去shell脚本还是有些地方做不过于是把脚本换成perl脚本了,该脚本为避免工作中服务器调整的原因造成忘记更脚本变量,

就直接去抓取另一个备份数据的脚本里的变量然后分割为FTP服务器上的用户名跟所需要上传至FTP的目录,开始是实现不了判断FTP服务器上是否存在目录问题,目前已解决,先上传抓取切换目录的信息,如果信息里有报错就走创建目录后上传文件语句,如果没有问题就直接上传.上脚本了 #!/usr/bin/perl
my $user="root";
my $password="xx";
my $host="localhost";
my $datapath="/databasedb/setup/data/";
my $file="$datapath/log_everyday.csv";
my $FTP_ADDR="xx 21";
my $FTP_pass="xx";
############################################################################
################获取系统时间时间格式为xxxx-xx-xx为当系统时间,变量为$date
#本小段脚本参照：http://bbs.chinaunix.net/viewthread.php?tid=821196
############################################################################
sub getTime
{
my $time = shift || time();
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); $year = 1900;
$mon ; $min = ''0''.$min if length($min) < 2;
$sec = ''0''.$sec if length($sec) < 2;
$mon = ''0''.$mon if length($mon) < 2;
$mday = ''0''.$mday if length($mday) < 2;
$hour = ''0''.$hour if length($hour) < 2; my $weekday = (''Sun'',''Mon'',''Tue'',''Wed'',''Thu'',''Fri'',''Sat'')[$wday]; return { ''second'' => $sec,
''minute'' => $min,
''hour'' => $hour,
''day'' => $mday,
''month'' => $mon,
''year'' => $year,

Empire CMS,phome.net

''weekNo'' => $wday,
''wday'' => $weekday,
''yday'' => $yday,
''date'' => "$year-$mon-$mday"
};
}
my $date=getTime();
my $date=$date->{date}; ###注

下面文件需要日期变量放在变量下面引用..
my $accountfile="$datapath/tbl_sch_account$date.csv";
my $charactorfile="$datapath/tbl_sch_charactor$date.csv"; open(STR,"/databasedb/mcsh") or die "Can''t open the file $!";
while($line=<STR>){
$string = $line if$line =~ /str=/;
}
@SP = split(/=/,$string);
@FTP_dir = split(/_/,$SP[1]);
#################################################################################
#
#FTP_dir是取至/databasedb/mcsh的含有str=字符行的=与_之间的数据
#
################################################################################ #####################################################################################################################
#
#substr,0表示从左边开始,-2表示删除最右边两位数,两位数正则往左边,负为右边
#
########################################################################################################################
$FTP_username=substr($FTP_dir[0],0,-2);
if (!$FTP_username){
print "请确认/databasedb/mcsh下=与_符号或str=字符是否存在..,n";
exit;
}
elsif($FTP_username =~ /%y%m%d%H%M/){
print "请核对str=字符串问题..,n";
exit;
}else{
print "OK...继续下一步！n";
} #*****************
#
#从MYSQL库里提取数据
#
#******************

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

1 2 3 下一页

分享到：更多

你可能对下面的文章感兴趣

上一篇: 开源数据库“五虎将”下一篇: 初学Linux的心得

关于linux ftp perl上传脚本的所有评论

随机推荐