perl语言中文件向ftp传输文件
这个是一段代码片,我想在-<ftp>
<ftpip>10.78.152.63</ftpip>
<ftpuser>jc_mr_ftp</ftpuser>
<ftppasswd>Mr_1234!</ftppasswd>
<ftpport>22021</ftpport>
<ftppassive>1</ftppassive>
<remotepath>/interface/O/MR/hzmro/</remotepath>
</ftp>
这个<remotepath>路径后在加个目录去存储文件并且目录是根据日期来创建的效果大概是会这样子
/interface/O/MR/hzmro/20170921 ps:目录是时间
这个是文件传输要执行的一段脚本,请问怎么解决!!!!
sub putAndUpdate{
my($ftp,$dbh,$info_hash,$localPathHash)=@_;
my $logIdInfo=putFiles($ftp,$info_hash->{'parameter'}->{'localpath'},$info_hash->{"ftp"}->{"remotepath"}->{"remotepath"},$localPathHash);###进到remo
debug "文件传输成功的logId记录信息:",Dumper($logIdInfo->[0]);
debug "文件不存在的logId记录信息:",Dumper($logIdInfo->[1]);
debug "开始更改数据库状态...\n";
updateTbftpfilelog($dbh,$info_hash->{"sql"}->{"updateFileLogById"},$logIdInfo->[0]);
updateTbftpfilelog($dbh,$info_hash->{"sql"}->{"updateFailedUploadLog"},$logIdInfo->[1]);
debug "更改数据库状态完成\n";
}