Perl脚本学习经验，三--Perl中ftp的使用

使用use Net::FTP;

Demo:

my $Server = '192.168.1.1';

my $User = 'admin';

my $Password = 'admin';

my $ftp = Net::FTP->new($Server,Passive => 0, Debug => 1,Timeout => 10) or die "Could not connect.\n";

if (defined $ftp)

{

if ($ftp->login($User, $Password) or die "Could not login. \n")

{

$ftp->cwd("config"); #切换目录

$ftp->put($g_file); #上传文件

}

}

$ftp->quit(); #退出ftp