perl – 为什么NET :: FTP上传文件的速度很慢
发布时间:2020-12-16 06:26:14 所属栏目:大数据 来源:网络整理
导读:我的问题是使用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,Timeou
我的问题是使用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增加(或减少)几倍,并查看它是否发生任何变化. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |