会python真的可以为所欲为0(回)
350天前
这里还有人吗1(回)
535天前这里还有人吗0(回)
535天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
760天前到处都是羊，不想上班0(回)
840天前
鸽子
0(回)
844天前#!/usr/bin/perl -w |
# file: ftp_recent.pl |
# Figure 6.1: Downloading a single file with Net::FTP |
use Net::FTP; |
use constant HOST => 'ftp.perl.org'; |
use constant DIR => '/pub/CPAN'; |
use constant FILE => 'RECENT'; |
my $ftp = Net::FTP->new ( HOST ) or die "Couldn't connect: $@\n"; |
$ftp->login ( 'anonymous' ) or die $ftp->message; |
$ftp->cwd ( DIR ) or die $ftp->message; |
$ftp->get ( FILE ) or die $ftp->message; |
$ftp->quit; |
warn "File retrieved successfully.\n"; |
by: 发表于：2017-09-13 14:14:51 顶(0) | 踩(0) 回复
??
回复评论