perl Net:FTP 简单说明

代码：

#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;
use constant HOST => '192.168.1.4';
use constant PASS => '123';
use constant USER => 'vitualadmin';
my $ftp = Net::FTP->new(HOST) or die "Could not connect.\n";
$ftp->login(USER,PASS) or die "Could not log in .\n";
$ftp->cwd('public');
my $remotefile = 'Business-ISBN-2.05.tar.gz';
$ftp->get($remotefile);
$ftp->quit;

perl 通过 Net::FTP 来连接ftp 并下载或上传文件，删除，重名名文件，目录。

通过new 方法 创建一个对象 建立连接

通过login 方法 用指定的用户名，密码进行登录

通过cwd 方法更改目录

通过get 方法下载指定的文件

最后quit 方法退出

还有很多可以参考perldoc Net::FTP

这里use constant 相当于C语言的宏定义。。。

最后感觉这个执行时间比较慢。。。