[求助] Net::FTP 效率问题

hzl1984

最近写了一个程序，使用Net::FTP包对本地文件通过ftp方式发送到远程主机上。
测试使用的是局域网，使用binary方式上传，方法为put，但是脚本上传的速度十分慢。一个1M多的文件都要上传几十秒。
如果用相同方式，使用手工ftp命令，相同的文件0.7秒左右就能传完。硬件应该没有问题。
运行perl脚本的机器为windows xp。远程主机是AIX 4.3
请问各位高手，问题出在哪里，如何解决。
感激不尽！

yashiro_lj

Benchmark一下，看看几十秒的时间都花在哪了

hzl1984

测试使用了一个文件，1M左右。
主要消耗时间的语句就是
                $ftp->put($_)
上传要花22秒，速度50k上下。
但是手工使用ftp，相同模式，0.7秒完成，速度1M以上。

flw

抓包看一下有什么分别

hzl1984

分别抓包看了一下，发现在传输是似乎协议有点不一致，这个最可疑。不知如何才能使Net::FTP的协议和普通ftp一致了。

Perl程序ftp抓包如下：
Transmission Control Protocol, Src Port: ftp (21), Dst Port: 8234 (8234), Seq: 467, Ack: 137, Len: 42

普通ftp传输抓包如下：
Transmission Control Protocol, Src Port: ftp (21), Dst Port: synapse-nhttp (8280), Seq: 212, Ack: 93, Len: 43

iceberg77

试下修改Net::FTP的BlockSize，默认是10KB，改大些，看是否能提高速度

hzl1984

问题已经解决，感谢各位的关注。
问题主要出在Net::FTP包Client的默认的blocksize和timeout设置太大。
导致每次ftp回包时等待缓冲时间太久，只要把这两个值减小就可以了。