AI时代，找源码已成为过去式，纪念我过去的十年0(回)
80天前
还有人吗2(回)
98天前会python真的可以为所欲为0(回)
578天前
这里还有人吗2(回)
763天前这里还有人吗0(回)
763天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
987天前#----------------------------- |
use Net::FTP; |
$ftp = Net::FTP->new ( "ftp.host.com" ) or die "Can't connect: $@\n"; |
$ftp->login ( $username, $password ) or die "Couldn't login\n"; |
$ftp->cwd ( $directory ) or die "Couldn't change directory\n"; |
$ftp->get ( $filename ) or die "Couldn't get $filename\n"; |
$ftp->put ( $filename ) or die "Couldn't put $filename\n"; |
#----------------------------- |
$ftp = Net::FTP->new ( "ftp.host.com", |
Timeout => 30, |
Debug => 1 ) |
or die "Can't connect: $@\n"; |
#----------------------------- |
$ftp-> |
login() |
or die "Couldn't authenticate.\n"; |
$ftp->login ( $username ) |
or die "Still couldn't authenticate.\n"; |
$ftp->login ( $username, $password ) |
or die "Couldn't authenticate, even with explicit username |
and password.\n"; |
$ftp->login ( $username, $password, $account ) |
or die "No dice. It hates me.\n"; |
#----------------------------- |
$ftp->put ( $localfile, $remotefile ) |
or die "Can't send $localfile: $!\n"; |
#----------------------------- |
$ftp->put ( *STDIN, $remotefile ) |
or die "Can't send from STDIN: $!\n"; |
#----------------------------- |
$ftp->get ( $remotefile, $localfile ) |
or die "Can't fetch $remotefile : $!\n"; |
#----------------------------- |
$ftp->get ( $remotefile, *STDOUT ) |
or die "Can't fetch $remotefile: $!\n"; |
#----------------------------- |
$ftp->cwd ( "/pub/perl/CPAN/images/g-rated" ); |
print "I'm in the directory ", $ftp->pwd(), "\n"; |
#----------------------------- |
$ftp->mkdir ( "/pub/gnat/perl", 1 ) |
or die "Can't create /pub/gnat/perl recursively: $!\n"; |
#----------------------------- |
@lines = $ftp->ls ( "/pub/gnat/perl" ) |
or die "Can't get a list of files in /pub/gnat/perl: $!"; |
$ref_to_lines = $ftp->dir ( "/pub/perl/CPAN/src/latest.tar.gz" ) |
or die "Can't check status of latest.tar.gz: $!\n"; |
#----------------------------- |
$ftp->quit() or warn "Couldn't quit. Oh well.\n"; |
#----------------------------- |
by: 发表于：2017-09-15 16:56:56 顶(0) | 踩(0) 回复
？？
回复评论