在线观看免费网站,久久久久一区,欧洲精品久久

自動(dòng)FTP腳本

use strict;

use Net::FTP;

my $ftp = Net::FTP->new($HOST) or die "Cannot connect to $HOST: $@";

$ftp->login($USER,$PASS) or die "Cannot login ", $ftp->message;

$ftp->ascii;

$ftp->cwd($PATH);

foreach my $file (@file_list) {

my $remote_file = $file.'.txt';

my $local_file = $LOCAL_PATH."/$remote_file";

if ($ftp->size($remote_file)) {

$ftp->get($remote_file,$local_file) or die "get failed ", $ftp->message;

}

$ftp->quit;

posted on 2006-03-11 00:04 weidagang2046 閱讀(627) 評(píng)論(0) 編輯收藏所屬分類: Perl


只有注冊用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關(guān)文章: 統(tǒng)計(jì)工程的源代碼行數(shù) Perl eval函數(shù)探討如何捕捉CGI程序exception 創(chuàng)建或刪除目錄 Perl Tips 2006/8/19 刪除用通配符匹配的一類文件列出目錄下的所有子目錄和文件名 perl自帶的介紹圖形界面的例子 windows 下的system命令的后臺(tái)運(yùn)行求助 Perl處理Unix命令輸出