主頁 > 知識庫 > FTP自動上傳文件的perl腳本以及配置文件

FTP自動上傳文件的perl腳本以及配置文件

熱門標簽:真人語音電銷機器人系統(tǒng) 浦東上海400開頭的電話申請 買了外呼系統(tǒng)不想用了怎么辦 樂昌電話機器人 電話機器人電話卡封號怎么辦 邯鄲外呼調(diào)研線路 北京語音電銷機器人價格 武漢呼叫中心外呼系統(tǒng)線路商 開封百應電銷機器人聯(lián)系方式

本應用程序設計的幾個基本理念是:
工具箱再利用:盡可能利用已有的工具;
簡化運行步驟;不引入過多的業(yè)務邏輯,滿足的需求越簡單越好。

所以,我們定義了本應用程序依賴于以下幾個工具的運行:
ActivePerl-5.8.4.810-MSWin32-x86
Upload.pl
Upload.config

我們將主要的執(zhí)行邏輯都放在Perl源文件Upload.pl中了,配置文件為Upload.config。

這個perl文件將執(zhí)行的任務是, 按照指定的文件夾目錄,自動將該文件夾下的所有文件上傳到指定ftp站點的指定目錄下。

這個Perl腳本實際是從Uwe Keim 的《Perl Script for uploading modified files to a FTP-Server》繼承下來的,
只不過增加了容錯反應和讀取外部配置文件的部分,刨掉了與一般業(yè)務邏輯無關的讀寫access文件的部分。

程序大致的流程:
第一步,嘗試登陸ftp站點;
第二步,在指定文件夾A類下尋找符合條件的文件,并將A類文件上傳到FTP站點指定目錄下;
第三步,如果A類文件們?nèi)可蟼鞒晒?,那么在指定文件夾B類下尋找指定文件, 并且上傳到FTP指定目錄下
第四步,寫成功/失敗日志。

最后,要寫的成功/失敗日志的格式如下:
成功: 生成一個名為“Upload_Succ_2005_01_04_17_23.log”的日志文件
文件格式:輸出上傳時間,以及所有上傳文件名及其大小和耗費的時間。
失敗: 生成一個名為“Upload_Fail_2005_01_04_17_23.log”的日志文件
文件格式:輸出上傳時間,以及已經(jīng)上傳的文件名及其大小和耗費的時間,和失敗的文件名及原因。

配置perl腳本運行有兩個辦法:
您可以在Windows計劃任務中配置運行“Perl Upload.pl”的時間,這需要在Windows環(huán)境中配置ActivePerl 5.8.4.810;
您也可以利用Perl2Exe(p2x-8.40-Win32)來將perl腳本編譯為一個exe可執(zhí)行程序,在計劃任務中運行這個exe(這需要PerlCRT.dll在系統(tǒng)路徑下)。

[注意!]在運行之前,您必須修改“Upload.config”文件以配置所需的重要參數(shù)。
外部配置參數(shù)

在和perl腳本同一目錄下的“Upload.config”配置文件中,是事先配置的六個外部參數(shù):
參數(shù)1: ftp_server:
FTP服務器的IP地址。

參數(shù)2: ftp_dir:
指定的FTP上傳目錄路徑;

參數(shù)3: ftp_uid:
FTP的登陸用戶名;

參數(shù)4: ftp_pw:
FTP的登陸密碼;

參數(shù)5: src_dir_WAVFiles,這是一個數(shù)組:
指定A類文件夾,放置所有要上傳的語音文件;
注意:這個目錄下的子文件夾也會被上傳。

參數(shù)6: src_dir_NamesListFile,這是一個數(shù)組:
指定B類文件夾,放置B類文件.
注意:這個目錄下的子文件夾也會被上傳。

附錄:
Upoad.pl內(nèi)容:

復制代碼 代碼如下:

#!/usr/bin/perl -w
##--------------------------------
#
# 工程項目: FTP自動上傳兩類文件
#
# 模塊名稱: FTPAutoUpload
#
# 模塊任務: 按照指定的文件夾目錄,自動將該文件夾下的所有文件上傳到指定ftp站點的指定目錄下
#
# 程序名稱:     Upload.pl
#
##-------------------------------
##---------------------------#
## 引用的庫聲明 2
#use strict;
use File::Copy;
use File::stat;
use File::Find;
use Net::FTP;
use Date::Pcalc qw(Delta_DHMS);
use Date::Parse;
use Win32::OLE;
use Win32::OLE::Variant;
##---------------------------#
##---------------------------#
## 引用的庫聲明 1
#- 讀取ini配置文件的庫
use Config::IniFiles;
my $cfg = Config::IniFiles->new( -file => "Upload.config" );
##---------------------------#
##---------------------------#
## 從配置文件讀取外部參數(shù) ##
##
## FTP服務器的IP地址 ##
$ftp_server    = $cfg->val('FTPServer', 'ftp_server') || '';
## 指定的FTP上傳目錄路徑 ##
#! 切記:文件夾最后不要加"/"符號 !#
$ftp_dir    = $cfg->val('FTPServer', 'ftp_dir') || '';
## FTP的登陸用戶名 ##
$ftp_uid   = $cfg->val('FTPServer', 'ftp_uid') || '';
## FTP的登陸密碼 ##
$ftp_pw     = $cfg->val('FTPServer', 'ftp_pw') || '';
## 指定文件夾“語音文件”,放置所有要上傳的語音文件 ##
#! 切記:文件夾最后不要加"\\"符號 !#
@src_dir_WAVFiles = $cfg->val('SrcDirectory', 'src_dir_WAVFiles');
## 指定文件夾“命名對照列表文件TXT”,放置命名對照列表文件 ##
#! 切記:文件夾最后不要加"\\"符號 !#
@src_dir_NamesListFile = $cfg->val('SrcDirectory', 'src_dir_NamesListFile');
## 一個字符串集合,表明哪些類型的文件/文件夾將不被上傳到服務器 ##
@wc_exclude   = ("_vti",".mdb","\\bak","\\data","server.inc");
##---------------------------#
##---------------------------#
## 記錄全部過程的日志文件準備
$logfilename = 'upload.log';
$log_cnt = 0;
LOG("");
LOG("自動上傳FTP文件 Version 0.1");
LOG("");
LOG("用法: Perl Upload.pl");
LOG("");
##---------------------------#
##---------------------------#
##=== 程序執(zhí)行的第一步:嘗試登陸ftp站點 ==========================##
##  $total_files是上傳文件的數(shù)目
$total_files = 0;
##  $processed_files是已上傳文件的數(shù)目
$processed_files = 0;
##  $skipped_files是跳過文件的數(shù)目
$skipped_files = 0;
##  $start_date計算出當前開始的時間
$start_date = timeString(time);
## $g_nUploadSuccess代表是否已經(jīng)完全上傳,-1為不是,1為是:
my $g_nUploadSuccess = 1;
## $g_nIsAllWAVsFile_UploadSuccess代表是否已經(jīng)完全將A類文件上傳,-1為不是,1為是:
my $g_nIsAllWAVsFile_UploadSuccess = 1;
## $g_strLastError代表上次錯誤原因:
my $g_strLastError = "";
LOG("正在鏈接至指定FTP服務器($ftp_server)...");
$ftp = Net::FTP->new($ftp_server);
if($@)
{
 $g_strLastError = "不能連接到FTP服務器,錯誤原因:".$@;
 LOG("$g_strLastError@\n");
 $g_nUploadSuccess = -1;
}
else
{
 $ftp->login($ftp_uid, $ftp_pw);
 if($@)
 {
  $g_strLastError = "不能登陸FTP服務器,錯誤原因:".$@;
  LOG("$g_strLastError\n");
  $g_nUploadSuccess = -1;
 }
 else
 {
  $ftp->binary;
  LOG("鏈接FTP服務器成功!");
##---------------------------#
##---------------------------#
##=== 程序執(zhí)行的第二步,將指定A類文件夾下所有A類文件上傳到FTP站點指定目錄下 ===##
  my %lookup;
  LOG("準備上傳“A類文件”目錄(@src_dir_WAVFiles)下的所有文件!");
  find(\processFiles, @src_dir_WAVFiles);
  LOG("目錄(@src_dir_WAVFiles)已經(jīng)處理完畢,結(jié)果是:");
##---------------------------#
##=== 程序執(zhí)行的第三步,將指定B類文件夾下B類文件上傳到FTP站點指定目錄下 ===##
  if($g_nIsAllWAVsFile_UploadSuccess > 0)
  {
   LOG("+===============================+");
   LOG("準備上傳B類目錄(@src_dir_NamesListFile)下的所有文件!");
   find(\processFiles, @src_dir_NamesListFile);
   LOG("目錄(@src_dir_NamesListFile)已經(jīng)處理完畢,結(jié)果是:");
   LOG("-===============================-");
  }
  else
  {
   LOG("-===============================-");
   LOG("由于A類文件目錄并沒有完全上傳,所以本B類文件不上傳!");
   LOG("-===============================-");
  }
##---------------------------#
##---------------------------#
# 日志文件的最后是一個統(tǒng)計報告
  $span = calcDeltaSeconds($start_date,timeString(time));
  LOG("上傳結(jié)果:成功。\n花費:$span 秒, 總共處理了 $total_files 個文件, 其中 $processed_files 上傳成功, 跳過了 $skipped_files 個文件。");
  $ftp->quit()         or warn "unable to quit: $@\n";
 }
 closeLogfile();
}
##---------------------------#
##---------------------------#
##=== 程序執(zhí)行的第四步,寫成功日志 ===============================##
if($g_nIsAllWAVsFile_UploadSuccess > 0 $g_nUploadSuccess > 0)
{
 $logfilename = 'Upload_Succ_'.shortTimeString(time).'.log';
 $log_cnt = 0;
 LOG("");
 LOG("FTP自動上傳文件 Version 0.1");
 LOG("");
 LOG("上傳結(jié)果:成功。\n花費:$span 秒, 總共處理了 $total_files 個文件, 其中 $processed_files 上傳成功, 跳過了 $skipped_files 個文件。");
 LOG("");
 closeLogfile();
}
##---------------------------#
##---------------------------#
##=== 程序執(zhí)行的第四步,寫失敗日志 ===============================##
if($g_nIsAllWAVsFile_UploadSuccess 0 || $g_nUploadSuccess 0)
{
 $logfilename = 'Upload_Fail_'.shortTimeString(time).'.log';
 $log_cnt = 0;
 LOG("");
 LOG("FTP自動上傳文件 Version 0.1");
 LOG("");
 LOG("上傳結(jié)果:失敗。失敗原因:$g_strLastError。\n花費:$span 秒, 總共處理了 $total_files 個文件, 其中 $processed_files 上傳成功, 跳過了 $skipped_files 個文件。");
 LOG("");
 closeLogfile();
}
##---------------------------#
## 以下是子函數(shù)體的定義
##----------------------------##
##
## 函數(shù)名稱:processFiles
## 功能:  
##           得到指定文件夾下的所有文件以及子文件夾,然后依次處理它們。
##
## 程序員:  Uwe Keim
##
## 歷史記錄:
## 編號     日期       作者    備注
## 1        2000       Uwe Keim

##
##----------------------##
sub processFiles
{
 my $srcdir = fsToBs($File::Find::dir);
 my $srcpath = fsToBs($File::Find::name);
 my $base = fsToBs($File::Find::topdir);
 foreach my $exclude (@wc_exclude) {
  if ( index($srcpath, $exclude)>-1 ) {
   $File::Find::prune = 1 if -d $srcpath;
   return;
  }
 }
 # no DIRECT processing of directories.
 if ( -d $srcpath ) {
  return;
 }
 my $dstdir = $srcdir;
 my $dstpath = $srcpath;
 $dstdir =~ s{\Q$base\E}{$ftp_dir}is;
 $dstpath =~ s{\Q$base\E}{$ftp_dir}is;
 $dstdir = bsToFs($dstdir);
 $dstpath = bsToFs($dstpath);
 processFile($srcpath,$dstpath,$dstdir);
}
sub processFile
{
 my ($src,$dst,$dstdir) = @_;
 $total_files++;
 LOG("正在處理文件 $total_files \"$src\"...");
 # --------------------
 # check time.
 my $need_upload = 0;
 # create time.
 my $t1 = $lookup{$src};
 my $t2 = timeString(stat($src)->mtime);
 if ( not defined $t1 ) {
  $lookup{$src} = $t2;
  $need_upload = 1;
 } else {
  my $delta_sec = calcDeltaSeconds($t1,$t2);
  $need_upload = 1 if $delta_sec>5;     # 5 seconds as tolerance.
 }
 # --------------------
 if ( $need_upload>0 ) {
  $processed_files++;
  LOG("正在上傳文件:從源 \"$src\" 到目標 \"$dst\"...");
  $ftp->mkdir($dstdir,1);
  $ftp->put($src, $dst) or  $g_nIsAllWAVsFile_UploadSuccess=-1;
  if($g_nIsAllWAVsFile_UploadSuccess 0)
  {
   LOG("不能上傳文件:從源 \"$src\" 到目標 \"$dst\" (dst-dir: \"$dstdir\")。\n");
   if($@)
   {
    LOG("錯誤原因是:$@\n");
   }
  }
 } else {
  $skipped_files++;
 }
}
sub bsToFs {
 my ($s) = @_;
 $s =~ s/\\/\//gis;
 return $s;
}
sub fsToBs {
 my ($s) = @_;
 $s =~ s/\//\\/gis;
 return $s;
}
sub timeString {
 my ($tm) = @_;
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($tm);
 return sprintf("%04d-%02d-%02d %02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
}
sub shortTimeString {
 my ($tm) = @_;
 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($tm);
 return sprintf("%04d_%02d_%02d_%02d_%02d", $year+1900, $mon+1, $mday, $hour, $min);
}
# input dates as string "YYYY-MM-DD HH:MM:SS".
# earlier as first parameter, later as second.
sub calcDeltaSeconds {
 my ($t1,$t2) = @_;
 my ($year1,$month1,$day1,$hh1,$mm1,$ss1) = scanDate($t1);
 my ($year2,$month2,$day2,$hh2,$mm2,$ss2) = scanDate($t2);
 my ($days, $hours, $minutes, $seconds) = Delta_DHMS(
  $year1, $month1, $day1, $hh1, $mm1, $ss1,     # earlier.
  $year2, $month2, $day2, $hh2, $mm2, $ss2);    # later.
 return $seconds + $minutes*60 + $hours*60*60 + $days*60*60*24.
}
sub removeFilename {
 my ($s) = @_;
 my $pos = rindex($s,'\\');
 return substr($s, 0, $pos);
}
# format: "2000-09-29 09:09:51".
sub scanDate {
 my ($date) = @_;
 my ($year, $month, $day, $hour, $minute, $seconds);
 $year   = substr($date, 0, 4);
 $month  = substr($date, 5, 2);
 $day   = substr($date, 8, 2);
 $hour   = substr($date, 11, 2);
 $minute  = substr($date, 14, 2);
 $seconds = substr($date, 17, 2);
 return ($year, $month, $day, $hour, $minute, $seconds);
}
sub LOG {
 my ($text) = @_;
 my $time = timeString time;
 # log to stdout.
 print "[$time] $text\n";
 # log to logfile.
 my $LOG_STEP = 10;
 flushLogfile() if ($log_cnt % $LOG_STEP)==0 or $log_cnt==0;
 $log_cnt++;
 print HLOG "[$time] $text\n";
}
sub openLogfile {
 closeLogfile();
 open(HLOG,">>$logfilename") or die("打開日志文件出錯:文件名為 $logfilename ;錯誤原因為: $!");
};
sub closeLogfile {
 close HLOG if defined HLOG;
}
sub flushLogfile {
 closeLogfile();
 openLogfile();
}
附錄:
Upoad.config內(nèi)容:
## 配置的外部參數(shù) ##
##
[FTPServer]
#- FTP服務器的IP地址 -#
ftp_server   =
#- 指定的FTP上傳目錄路徑 -#
#! 切記:文件夾最后不要加"/"符號 !#
ftp_dir       =
#- FTP的登陸用戶名 -#
ftp_uid    =
#- FTP的登陸密碼 -#
ftp_pw    =
## 配置的外部參數(shù) ##
##
[SrcDirectory]
#- 指定文件夾“語音文件”,放置所有要上傳的語音文件 -#
#! 切記:文件夾最后不要加"\"符號 !#
src_dir_WAVFiles  =
#- 指定文件夾“命名對照列表文件TXT”,放置命名對照列表文件 -#
#! 切記:文件夾最后不要加"\"符號 !#
src_dir_NamesListFile =

您可能感興趣的文章:
  • Win7中開啟系統(tǒng)自帶FTP服務器的方法
  • 架設自己的FTP服務器 Serv-U詳細配置圖文教程[推薦]
  • Windows IIS配置與Ftp服務搭建
  • CentOs6.5中安裝和配置vsftp簡明教程
  • Windows 2008 R2 IIS7.5配置FTP圖文教程
  • 阿里云云服務器Windows 2008中的FTP配置圖文教程
  • VSFTPD配置(匿名——本地用戶——虛擬用戶)
  • linux下用Proftpd搭建ftp服務器及配置方法
  • 詳解CentOS7安裝配置vsftp搭建FTP
  • win7下FTP服務器配置訪問教程

標簽:松原 河北 自貢 石嘴山 鄂州 六安 淄博 宜春

巨人網(wǎng)絡通訊聲明:本文標題《FTP自動上傳文件的perl腳本以及配置文件》,本文關鍵詞  FTP,自動,上傳,文件,的,perl,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權(quán)與本站無關。
  • 相關文章
  • 下面列出與本文章《FTP自動上傳文件的perl腳本以及配置文件》相關的同類信息!
  • 本頁收集關于FTP自動上傳文件的perl腳本以及配置文件的相關信息資訊供網(wǎng)民參考!
  • 推薦文章