我的问题是使用perl将本地文件ftp到ftp服务器.问题是上传速度如此之慢的原因.这是代码：
use strict;
use warning;
use NET::FTP;
my $ftpserver = "10.110.143.9";
my $usr = "John";
my $passwd = "John";
sub main {
my $ftp = Net::FTP->new( $ftpserver,Timeout => 200 ) or print "Can't connect ftpserver" sleep 5;
my $rc = $ftp->login( $usr,$passwd );
unless ($rc) {
print("login Failed!");
return 1;
}
print("login success");
$ftp->binary();
$ftp->put("d:\\2012.txt");
$ftp->quit;
return 0;
}
30mb的上传时间约为5分钟,而在同一台机器上使用另一台ftp客户端只需10秒左右.
解决方法
您应该启用PassiveMode,并使用BlockSize(它曾经是Net :: FTP的减速源),如下所示：
my $ftp = new Net::FTP(
$ftpserver,Timeout => 200,Passive => 1,BlockSize => 8192,);
尝试将BlockSize增加(或减少)几倍,并查看它是否发生任何变化.