문제

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;

the above prog gives following error

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

I am using avtivestate perl (v5.12.3)

although i give another user instead of root it gives same error.
I have centos 6.4 on host.
can anyone help me?

도움이 되었습니까?

해결책

From the documentation for Net::OpenSSH:

On the other hand, Net::OpenSSH does not work on Windows, not even under Cygwin.

For an alternative solution: How do we configure SSH using Perl in Windows?

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top