Question

use strict;
use warnings;
use Net::OpenSSH;

$Net::OpenSSH::debug |= 16;

my $ssh = Net::OpenSSH->new(host=>'xx.xx.xx.xx',
                            user => 'xxxx',
                            password => 'xxxx'
);

$ssh->error and die "SSH connection failed: " . $ssh->error;
my $command = "ls";
my @out = $ssh->capture($command);
print @out;

以上编程提供以下错误

SSH connection failed: unable to determine home directory for uid 0 at ./ssh.pl
line 12.

我正在使用avtivestate perl（v5.12.3）

虽然我给了另一个用户而不是root用户但却给出了同样的错误我在主持人上有6.4 有谁可以帮助我？

Answer 1

来自Net::OpenSSH的文档：

另一方面，Net :: OpenSSH在Windows上不起作用，即使在Cygwin下也不行。

对于替代解决方案：How do we configure SSH using Perl in Windows?

Windows上的openSSH出错

1 个答案: