perl中ftp操作案例

发布时间：2020-12-15 23:41:31 所属栏目：大数据来源：网络整理

导读：#!/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 fa

#!/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_ipn",$ftp->message();

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

$ftp->binary();

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

$ftp->quit();

print "upoad file successn";

}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!