使用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本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
