私の問題は、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 秒程度しかかかりません。