perl中ftp操作案例

#!/usr/bin/perl

use strict;

use DBI;

use Net::FTP;

sub upload_ftp{

my $ftp;

my $ftp_dir;

my $ftp_ip="14.2.33.64";

my $ftp_user="user";

my $ftp_pwd="user";

$ftp=Net::FTP->new($ftp_ip,Port=>21,BlockSize=1024000) ||die "create new ftp object failed !\n";

$ftp->login($ftp_user,$ftp_pwd)||die "can not login ftp $ftp_ip\n",$ftp->message();

$ftp->cwd($ftp_dir)||die "can not change ftp dir to $ftp_dir\n",$ftp->message();

$ftp->binary();

$ftp->put($batch_file,"$batch_file")||die "put the file $batch_file failed\n",$ftp->message();

$ftp->quit();

print "upoad file success\n";

}