Categorized | Biocompute

Tags | ,

Perl:用Net::FTP来上传下载文件

Posted on 31 七月 2009 by 柳城 ,阅读 1,164

Perl中,使用模块Net::FTP来使用FTP服务,一般的使用步骤如下:

  1. 使用Net::FTP的new方法来创建一个新的FTP对象。
  2. 使用login方法登录到FTP服务器。
  3. 使用cwd方法来切换目录。
  4. 使用get方法来获取文件。
  5. 使用put方法来上传文件。
  6. 使用quit方法退出。


更多有关标准的Net::FTP模块的应用,可以参考PerlDoc里的说明:perldoc Net::FTP


#使用模块Net::FTP
use Net::FTP;
#创建新的FTP连接
$ftp = Net::FTP->new
(
"ftp##",  #ftp地址
Timeout => 30
) or die "Could not connect.\n";
#登录用的用户名和密码
$username = 'name';
$password = 'passwd';
#登录到FTP服务器
$ftp->login($username,$password) or die "Could not login.\n";
#切换目录
$ftp->cwd('/www/entrez');
#指定远程的文件和本地的文件
$remotefile = "emotefile";
$localfile = "localfile";
#使用get/put方法下载/上传文件
$ftp->put($localfile,$remotefile) or die "Could not put remotefile:$remotefile\n";
#$ftp->get($remotefile,$localfile) or die "Could not put localfile:$localfile\n";
#退出FTP服务器
$ftp->quit;

转载请注明 : 来源于 Perl:用Net::FTP来上传下载文件 | 柳城

赞助商

6条评论 于 “Perl:用Net::FTP来上传下载文件”

  1. kevinsnow kevinsnow Says:

    我來路過
    我的博客挂了 鬱悶

    [回复]

    柳城博客
    柳城博客 回复:

    是访问不了啦~为什么会挂.怎么回事??

    [回复]

    kevinsnow
    kevinsnow 回复:

    服務器別的站點有非法內容 被公安查封。。

    [回复]

    柳城博客
    柳城博客 回复:

    这也太冤了吧. 没有提供临时的空间给你们用???

    [回复]

    kevinsnow
    kevinsnow 回复:

    沒有 而且我完全沒備份。。這下死定了。。

    [回复]

    柳城博客
    柳城博客 回复:

    哎.真是无奈啊.

    [回复]

Leave a Reply

广告招租

[强] [握手] [可爱] [ok] [呲牙] :) [偷笑] [流泪] [疑问] [亲亲] [擦汗] [得意] [衰] [可怜] [抱拳] [坏笑] more »

无觅相关文章插件,快速提升流量