在Perl脚本中执行FTP客户端操作

文件传输协议（File Transfer Protocol，FTP）是一种在机器间传输文件的常用方法；Net::FTP模块允许你在Perl脚本中执行FTP的客户端操作。尽管Net::FTP并不支持全部的客户端命令，但它可以提供常见的FTP客户端操作，包括目录浏览、文件列表（包括文件大小和时间），上传和下载文件、删除文件、重命名文件等等。

如果你曾经用过FTP客户端，你就会发现这个模型很容易使用。首先，你创建一个新的FTP对象并提供你想连接的主机名，然后用用户名以及口令登录：

use Net::FTP;

my $ftp = new Net::FTP($hostname);
$ftp->login($username,$password);

一旦连接好了，你就可以执行典型的FTP操作。下面的例子改变目录并列举其中的文件：

$ftp->cwd($directory) or die "changing directory failed ";
my @lines = $ftp->ls();
foreach my $file (@lines) {
    print "$file ";

}

当你已经完成了文件传输，就调用退出方法来关闭本机到服务器的连接。

$ftp->quit();