Net::SSH::Perl 连接远程主机慢的原因

发现自己写的跳板程序，连接总是很慢。慢到没法接受了，远程主机连接都要 10 多秒，只有自己动手来解决。因为我一直是使用的 Net::SSH::Perl 。还是只能基于这个模块来修改。因为接口之类最完善,也最 Perl 化。

其实我个人非常喜欢 Net::SSH2，因为速度非常快，不过接口是在没法接受。

在处理连接慢之前，其实都查过网上所有的其它同学写的文章了，大家一致认为是 Math::BigInt、Math::BigInt::GMP 和 Math::BigInt::Pari 这几个模块没装的原因。然后我发现我都安装了，还使用 cpanm 来重装了一次。结果没有变化。只能自己来追原因了。

我使用 @CGI.NET 同学推荐的 NYTProf 来跟程序到底那个地方慢。然后打开 HTML 来看看。

我们看到，第一个地方花了 21 秒，就用在连接的上面，点开接着查看源代码，最后测试是下面这段代码有问题。

sub _create_socket {

my $ssh = shift;

my $sock = gensym;

my ($p,$end,$delta) = (0,1,1); # normally we use whatever port we can get

($p,$end,$delta) = (1023,512,-1) if $ssh->{config}->get('privileged');

# allow an explicit bind address

my $addr = $ssh->{config}->get('bind_address');

$addr = inet_aton($addr) if $addr;

($p,$end,$delta) = (10000,65535,1) if $addr and not $p;

$addr ||= INADDR_ANY;

for(; $p != $end; $p += $delta) {

socket($sock, AF_INET, SOCK_STREAM, getprotobyname('tcp') || 0) ||

croak "Net::SSH: Can't create socket: $!";

last if not $p or bind($sock, sockaddr_in($p,$addr));

if ($! =~ /Address already in use/i) {

close($sock) or warn qq{Could not close socket: $!\n};

next;

}

croak "Net::SSH: Can't bind socket to port $p: $!";

}

if($p) {

$ssh->debug("Allocated local port $p.");

$ssh->{config}->set('localport', $p);

}

$sock;

}

因为我是使用 root 用户，所以默认的这个时候加了一个 bind 来对客户端端口进行绑定。这个时候因为 root 用户，所以是绑定的 1024 端口以后。我单独给上面的代码拿出来测试时，发现在最简单的 socket 的连接上。只要 bind 的端口小于 1024 都会非常非常慢。原因未知，我也没法解决。
使用 strace 来跟的时候，发现也是停止在这个绑定以后的连接。只要加了 bind 连接就常常超时。

1 2	`bind(3, {sa_family=AF_INET, sin_port=htons(1023), sin_addr=inet_addr("0.0.0.0")}, 16) = 0` `connect(3, {sa_family=AF_INET, sin_port=htons(22), sin_addr=inet_addr("xxx.xxx.xxx.xxx")}, 16`

以我对 TCP/IP 的理解，好象没法解决这个问题了，原因只能靠大家来解决了。
我只能让整个流程绑定的端口指向 1024 以上，这种变态的方式来解决。也就是默认在 new 这个 Net::SSH::Perl 的对象的时候，加上一个 privileged => 0,来让我绑定都是以 1024 以上来绑定端口自由分配。
在这个地方做做记录，如果有相同的同学也发现自己写的 Net::SSH::Perl 很慢，可以考虑一下是不是相同的问题。

Net::SSH::Perl 连接远程主机慢的原因相关推荐

windows上SSH服务连接远程主机失败
putty连接出现错误提示"Network error:connection refused",xshell连接出现错误提示"connection failed:(por ...
ssh连接远程主机执行脚本的环境变量问题
http://www.kuqin.com/shuoit/20141113/343188.html 近日在使用ssh命令ssh user@remote ~/myscript.sh登陆到远程机器remot ...
Net::SSH::Perl 模块
<pre name="code" class="python">Net::SSH::Perl - Perl client Interface to ...
Centos 7无法SSH远程连接及解决方法
Centos 7无法SSH远程连接及解决方法小土豆Linux学习随笔 -- 清听凌雪慕忆以前运维中,服务器或者虚拟机安装完Centos 7系统,配置网络设置后即可利用SSH远程.昨夜,怪哉,不 ...
使用 Windows Terminal 连接远程主机
使用 Windows Terminal 连接远程主机 Intro Windows Terminal 是微软新推出来的一个全新的.流行的.功能强大的命令行终端工具.包含很多来社区呼声很高的特性,例如:多 ...
SSH 远程连接服务慢的解决方案
SSH 远程连接服务慢的解决方案连接慢的主要原因是DNS解析导致解决方法: 1.在ssh服务端上更改/etc/ssh/sshd_config文件中的配置为如下内容: UseDNS no # GSS ...
Perl的Net::SSH::Perl模块实现远程登陆ssh
执行cpan命令安装模 cpan install Net::SSH::Perl 选择SSH版本,直接默认即可选择使用的加密方式,也是默认默认回车同意安装接下来你会看见很多地方让你选择yes或者是 ...
idea连接远程主机
idea连接远程主机,方便我们在开发过程中,从远程主机拷贝或者上传文件,并且还可以直接在idea上写远程主机DockerfIle,只需提交即可完成.很方便我们部署. 下面是我们连接步骤第一步打开id ...
vultr服务器可以ping通但是ssh无法连接问题
今天在vultr上面新建主机的时候,碰到可以ping通但是用ssh无法连接的情况,搜索一圈发现似乎还是一个挺常见的现象. 这种现象的原因有可能是端口被墙.具体产生的原因这里就不说了. 判断方法如何确 ...

Net::SSH::Perl 连接远程主机慢的原因

Net::SSH::Perl 连接远程主机慢的原因相关推荐

最新文章

热门文章