need help SSH =(

[Raven]

У меня успешно заработал этот скрипт. Правда понадобились модули IO::Pty и Net::OpenSSH, но они успешно ставятся через cpan. Скрипт вышибло по таймауту, но ТД перезагрузилась.

Код: Выделить всё

#!/usr/bin/perl -w

use warnings;
use Net::OpenSSH;

my $ssh = Net::OpenSSH->new("192.168.0.5",
                            user => 'root',
                            password => 'root_password',
                            timeout => 60 );

my $output = $ssh->capture('reboot');
my $output = $ssh->capture({stdin_data => "reboot\n"});
$ssh->error and die "unable to run remote command: " . $ssh->error; 

[fantik]

Can't locate Net/OpenSSH.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at /home/user/.sh/rebootSHH.sh line 4.
BEGIN failed--compilation aborted at /home/user/.sh/rebootSHH.sh line 4.

"my" variable $output masks earlier declaration in same scope at /home/user/.sh/rebootSHH.sh line 12.
unable to run remote command: ctl_dir /root/.libnet-openssh-perl/ is not secure at /home/user/.sh/rebootSHH.sh line 13.


=(

[Raven]

Я ж говорил

понадобились модули IO::Pty и Net::OpenSSH, но они успешно ставятся через cpan

В *nix cтавятся так:

Код: Выделить всё

cpan Net::OpenSSH IO::Pty

[fantik]

не получилось =(
но заработал такой метод
sshpass -p 'пасс' ssh admin@192.168.1.1 'reboot'
оказалось все проще)
всем больше спасибо)