- #!/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语言的宏定义。。。
最后感觉这个执行时间比较慢。。。