perl库:Net:FTP

 

use Net::FTP;

use constant HOST=> '192.168.128.3';
use constant DIR=>'/home/corersky/study/perl';
use constant FILE=>'test.txt';

my $ftp=Net::FTP->new(HOST) or die "Could not connet:$@/n";
$ftp->login('test','test')  or die $ftp->message;
$ftp->cwd(DIR)              or die $ftp->message;
$ftp->get(FILE)              or die $ftp->message;
$ftp->quit;
warn "ftp file ok!/n";