Perl SFTP 真的很慢

Question

我正在使用 perl Net:SSH2 库来执行 SFTP。它工作得很好，但超级慢。它开始时比链接速度慢 7 倍（我可以处理），但几乎只要它传输了 2MB 的数据，它就会下降到慢 1000 倍。这是我的代码的精简版。我使用这个 Linux 命令创建了一个 10M 的随机数据文件dd if=/dev/urandom of=10M.dat bs=1M count=10。对于想要运行代码的任何人，请输入服务器、用户、密码等详细信息。

#!/usr/bin/perl

use strict;
use warnings;
use Fcntl ('O_WRONLY', 'O_CREAT');
use Net::SSH2;
use Time::HiRes qw(gettimeofday);

my $server = 'myserver';
my $username = 'myusername';
my $password = 'mypassword';
my $remoteFile = 'delme.dat';
my $localFile = '10M.dat';

my $ssh = Net::SSH2->new();
$ssh->connect($server) or die('Failed to connect to remote server for sftp');
$ssh->auth_password($username, $password);
$ssh->auth_ok() or die('Invalid username or password');
my $sftp = $ssh->sftp() or die('Ahhh!!');
open(my $localHandle, '<', $localFile) or die($!);
my $remoteHandle = $sftp->open($remoteFile, O_WRONLY | O_CREAT) or die($sftp->error());
my $tran = 0;
my $t = gettimeofday();
while(my $line = <$localHandle>)
{
  print $remoteHandle $line;
  $tran += length($line);
  my $newTime = gettimeofday();
  if($newTime - $t > 1)
  {
    print 'Speed is ' . ($tran / ($newTime - $t)) . "B/sec\n";
    $t = $newTime;
    $tran = 0;
  }
}
close($remoteHandle);
close($localHandle);

Answer 1

Net::SSH2/libssh2 对 SFTP 的支持并不理想。

请改用Net::SFTP::Foreign（如果您使用的是Windows，请使用Net::SSH2 backend Net::SFTP::Foreign::Backend::Net_SSH2）。