如何提高Net::FTP的速度

ConquerorLiu

现在写了一个perl的脚本上传下载文件，但是速度要比直接使用ftp 上传下载文件慢1个数量级。
创建的语句如下：
$ftp = Net::FTP->new($Para{FTP_IP}, Debug => 0, Hash =>1, Passive =>1, Timeout =>10, BlockSize =>8192)

请问这个和哪些因素相关呢？谢谢！

yiten

我觉得你应该研究一下，然后给大家分享一下

r_zack

你先对文件切块md5校验，然后用UDP作简单的私有协议直接发送——这是针对网络状况一般的环境；
如果网络状况好，直接UDP都传完再校验；
如果网络状况太差，用TCP比较省事。

至于FTP……从我学了Perl之后就再也不记得vsftp之类的破玩意儿要怎么配了，麻烦死了。

cnncc

现在写了一个perl的脚本上传下载文件，但是速度要比直接使用ftp 上传下载文件慢1个数量级。
创建的语句如下 ...
ConquerorLiu 发表于 2011-01-21 17:22

   
个人认为问题出在：BlockSize =>8192

除非你明确每个参数的意义，并且确定加上比不加要好，否则一些非必要的参数最好不好加。

ConquerorLiu

回复 3# r_zack


  直接用UDP或者TCP都是服务器，客户端模式，我现在是用的perl实现的客户端，那么服务器端我是没法控制的，只能用ftp对吧，除非我在服务器端写一个配合的收包写文件的应用程序
对吧

ConquerorLiu

回复 4# cnncc


    目前我做了一个测试，这个blocksize默认是10K， 我从1k一直测试到10k，发现设置在1k到5k的时候，速度达到要求了。。看来这个因素还是比较大的。
不过好像貌似用不同的用户来测试，速度还不一样。比较奇怪。还有一个问题就是传一个文件的时候比较快，如何接连传几个文件，合起来的速度还是要比传一个慢一半。不知何故！

yybmsrs

回复 6# ConquerorLiu


    传1个100m的文件肯定要比传10个10m的文件要快

xti9er

回复  cnncc


    目前我做了一个测试，这个blocksize默认是10K， 我从1k一直测试到10k，发现设置在1k ...
ConquerorLiu 发表于 2011-01-24 10:22

      多个小文件必然慢

ConquerorLiu

回复 7# yybmsrs


    慢的话是可以理解，是合理的，但是慢一半甚至只有传一个的时候的三分之一，还是不可以接受啊。