为什么NET :: FTP上传文件的速度很慢

时间:2013-01-16 01:08:06

标签: perl ftp

我的问题是使用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秒左右。

1 个答案:

答案 0 :(得分:6)

你应该启用PassiveMode,还可以使用BlockSize(它曾经是Net::FTP减速的来源),如下所示:

my $ftp = new Net::FTP(
    $ftpserver,
    Timeout => 200,
    Passive => 1,
    BlockSize => 8192,
);

尝试将BlockSize增加(或减少)2倍,然后查看它是否会发生任何变化。