使用Net::SFTP连接SFTP服务器失败（Connection closed by remote host）

heyddo

    我在用Net::SFTP连接SFTP服务器时，遇到一个奇怪的问题。
    先上脚本片段：
    $host = $rSelectInfoRef->[0][2];
    $user = $rSelectInfoRef->[0][3];
    $password = $rSelectInfoRef->[0][4];

    print "[DEBUG] $host|$user|$password|\n";

    my $sftp;

    eval {
        $sftp = Net::SFTP->new($host, user=>$user, password=>$password);
    };
    if( $@ ) {
        print "[ERROR] $@";
        exit -1;
    }
    我的脚本要实现一个简单的逻辑，从oracle中获取SFTP服务器的连接信息，然后使用Net::SFTP连接服务器进行一些操作，但是运行的时候出现报错：
        Connection closed by remote host. at /usr/local/lib64/perl5/Net/SSH/Perl/AuthMgr.pm line 165
    但是，奇怪的是，我修改了脚本，在程序中直接对SFTP连接信息赋值，程序又能成功运行，数据库中的值和我直接赋值的值是完全一样的（确认过很多遍），希望大家能帮忙看下这个问题。

    # 将数据库取值注释，改为直接赋值

    #$host = $rSelectInfoRef->[0][2];
    #$user = $rSelectInfoRef->[0][3];
    #$password = $rSelectInfoRef->[0][4];

    $host = "168.16.5.110";
    $user = "test";
    $password = "000000";
    print "[DEBUG] $host|$user|$password|\n";

    my $sftp;

    eval {
        $sftp = Net::SFTP->new($host, user=>$user, password=>$password);
    };
    if( $@ ) {
        print "[ERROR] $@";
        exit -1;
    }

asthman

把数据库的值取出来重新定义变量赋值，然后 print "hosts are same\n" if $host eq $dbhost来测试哪个不一样

夏尾鱼

进来学习一下谢谢楼主lol

heyddo

回复 2# asthman

数据库的值和我写死的常量值是一样的，我想了很多办法验证了。

heyddo

查了一上午还是没发现原因，没办法，我换了一个模块 Net::SFTP::Foreign，然后就可以运行，不报错了。我去看了一下Net::SFTP模块的代码，也调试了一下，不过没有发现什么问题，可能我有的技术还不是很懂，有没有大神有空看看。

asthman

到底是有没有用我的方法验证啊

heyddo

asthman 发表于 2018-06-22 17:03
到底是有没有用我的方法验证啊

不止用了你的办法

asthman

回复 7# heyddo

玄学代表，没法帮

laputa73

不是不可见字符的问题？

heyddo

回复 9# laputa73

谢谢你的回复，这个问题确实有点奇怪。

之前也怀疑过不可见字符，特意检查过了，没有发现有不可见字符，而且用另外一个模块Net::SFTP::Foreign去同样的数据库表取连接信息连接SFTP是没有问题的。

跟踪了一下代码，发现在Net::SSH:erl:acket模块的read函数里面抛出的异常， 代码如下。
在sysread那行，如果是从数据库取连接信息，每次运行到sysread调用时都会出现读取不到数据的情况。

sub read {
    my $class = shift;
    my $ssh = shift;
    my $sock = $ssh->sock;

    while (1) {
        if (my $packet = $class->read_poll($ssh)) {
            return $packet;
        }
        my $s = IO::Select->new( $sock );
        my @ready = $s->can_read;
        my $buf;
        my $len = sysread $sock, $buf, 8192;
        croak "Connection closed by remote host." if $len == 0;
        if (!defined $len) {
            next if $! == EAGAIN || $! == EWOULDBLOCK;
            croak "Read from socket failed: $!";
        }

        ## Untaint data read from sshd. This is binary data,
        ## so there's nothing to taint-check against/for.
        ($buf) = $buf =~ /(.*)/s;
        $ssh->incoming_data->append($buf);
    }
}