自动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 阅读(616) 评论(0) 编辑收藏所属分类: Perl


只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻知识库 C++博客博问管理
相关文章: 统计工程的源代码行数 Perl eval函数探讨如何捕捉CGI程序exception 创建或删除目录 Perl Tips 2006/8/19 删除用通配符匹配的一类文件列出目录下的所有子目录和文件名 perl自带的介绍图形界面的例子 windows 下的system命令的后台运行求助 Perl处理Unix命令输出

weidagang2046的专栏