Perl FTP实践

同样是advprog上的一个例子，确实好用。
#!/usr/bin/perl
use Net::FTP;
$ftp = Net::FTP->new("ftp.digital.com");
die "Could not connect: $!" unless $ftp;
$ftp->login('anonymous', 'me@foo.com');  # Guest User; email as passwd
$ftp->cwd('/pub/doc');        # cwd:Change Working Directory
$ftp->get('telecom.glossary.txt');
$ftp->quit();

这样，就把ftp.digital.com/pub/doc/telecom.glossary.txt  这个文件拿到本地当前目录下了，够方便。