Perl Net::SSH2 scp_put 放置文件然后挂起

Question

我正在使用 Net::SSH2 的 scp_put 方法将一个文件从 Windows 机器放入 Unix 服务器上的主目录中。我正在使用 Strawberry Perl 5.12（便携式版本）。我安装了 libssh2 1.2.5 二进制文件，然后从 cpan 安装了 Net::SSH2。

这是我的代码片段：

sub uploadToHost{

my $file=@_[0];
my $host=@_[1];
my $user=@_[2];
my $pass=@_[3];
my $remotelocation=@_[4];

#makes a new SSH2 object
my $ssh=Net::SSH2->new() or die "couldn't make SSH object\n"; 

#prints proper error messages
$ssh->debug(1);

#nothing works unless I explicitly set blocking on
$ssh->blocking(1);
print "made SSH object\n";

#connect to host; this always works
$ssh->connect($host) or die "couldn't connect to host\n"; 
print "connected to host\n";

#authenticates with password
$ssh->auth_password($user, $pass) or die "couldn't authenticate $user\n";
print "authenticated $user\n";

#this is the tricky bit that hangs
$ssh->scp_put($file, $remotelocation") or die "couldn't put file in $remotelocation\n";
print "uploaded $file successfully\n";

$ssh->disconnect or die "couldn't disconnect\n";

} #ends sub

输出（为匿名而编辑）：

使 SSH 对象\n

连接到主机\n

经过身份验证\n

libssh2_scp_send_ex(ss->session, path, mode, size, mtime, atime) -> 0x377e61c\n

Net::SSH2::Channel::read(size = 1, ext = 0)\n

然后它会永远挂起（一次测试超过 40 分钟），需要被终止。

奇怪的是，它实际上将文件 scp 到远程服务器！它只是在应该完成后才挂起。我在 StackOverflow 或其他地方找不到对这个奇怪问题的引用。

任何人都可以为我指明正确的方向，1）阻止它挂起，或者2）实施（作为一种解决方法）一个计时器，在几秒钟后杀死这个命令，这足以 scp 文件吗？

谢谢大家！

Answer 1

您可以尝试使用 Alarm() 来促使您的进程正常运行，如果将此示例保存为“alarm.pl”，您可以看到它是如何工作的：

use strict;
use warnings;
use 5.10.0;

# pretend to be a slow process if run as 'alarm.pl s'
if (@ARGV && $ARGV[0] eq 's') {
    sleep(30);
    exit();
}

# Otherwise set an alarm, then run myself with 's'
eval {
    local $SIG{ALRM} = sub {die "alarmed\n"};
    alarm(5);
    system("perl alarm.pl s");
};
if ($@) {
    die $@ unless $@ eq "alarmed\n";
    say "Timed out slow process";
}
else {
    say "Slow process finished";
}

Answer 2

使用 Net::SFTP::Foreign 与 Net:: SSH2 后端，Net::SFTP::Foreign::后端： :Net_SSH2：

use Net::SFTP::Foreign;

my $sftp = Net::SFTP::Foreign->new($host, user => $user, password => $password, backend => Net_SSH2);
$sftp->die_on_error("Unable to connect to remote host");

$sftp->put($file, $remotelocation);
$sftp->die_on_error("Unable to copy file");

如果这也不起作用，您可以尝试使用 plink（来自 PuTTY 项目）而不是 Net::SSH2 后端。

Answer 3

我认为它没有挂起，只是速度非常慢。比应有的速度慢 10 倍。文件出现在那里的原因是它在完成传输之前分配了文件。这并不是太出乎意料，Perl 每天都会找到让程序员失望和沮丧的新方法。有时我想我花更多的时间来解决 Perl 的特性并学习 10 种稍微不同的方法来完成同样的事情，而不是真正的工作。