Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Проблема с Net::SSH::W32Perl

Автор: Sojer 16.8.2007, 13:26

Значит задача такая: нужен скрипт на перле, который будет запускаться с виндовой тачки и выполнять команды на удалённом шелле по ssh. Есть как раз такой модуль: Net::SSH::W32Perl
http://search.cpan.org/~scotts/Net-SSH-W32Perl-0.05/lib/Net/SSH/W32Perl.pm
http://search.cpan.org/src/SCOTTS/Net-SSH-W32Perl-0.05/README

Проблема заключается в том, что он у меня не хочет ставиться, а точнее вообще не находится =\
Через ppm находит только Net::SSH, который под виндой не работает. Пробывал как написано в ридми делать так:

Код


D:\Coding\Perl\Net-SSH>ppm install --location=http://www.soulcage.n
et/ppds Net::SSH::W32Perl
Usage:  ppm install [--force] [--nodeps] [--area <area>] <module> | <url> | <fil
e> | <num>
        Run 'ppm help install' to learn more.

D:\Coding\Perl\Net-SSH>

Скрипт такого содержания:

Код

use Net::SSH::W32Perl;

my $host = '****';
my $ssh = new Net::SSH::W32Perl (
            $host, 
            protocol => 2,
            debug    => 1 );
$ssh->login('****', '****');
my ($out, $err, $exit) = $ssh->cmd('cat', 'Hello Net::SSH::W32Perl User!');

Код

H:\Perl\SSH 4 win>perl -c s.pl
Can't locate Net/SSH/W32Perl.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl
/lib .) at s.pl line 1.
BEGIN failed--compilation aborted at s.pl line 1.

H:\Perl\SSH 4 win>

Что делать? smile

Автор: amg 16.8.2007, 14:06

Цитата(Sojer @ 16.8.2007, 13:26

)

Проблема заключается в том, что он у меня не хочет ставиться, а точнее вообще не находится

Перл от ActiveState? Если да, то действительно, у ActiveState нет этого модуля, зато он есть в репозитарии http://cpan.uwinnipeg.ca/module. Просто добавь в ppm этот репозитарий (не помню уж, как это делается, но точно можно). И еще рекомендую в таких случаях пользоваться не официальным CPAN-овским поиском модулей, а, например, http://kobesearch.cpan.org/htdocs/faqs/cpan-search.html. Он вдобавок показывает в каких репозитариях какие пакеты для Win есть.

Автор: Sojer 16.8.2007, 14:43

да, актив перл: This is perl, v5.8.8 built for MSWin32-x86-multi-thread

ну вот нашёл я его там: http://cpan.uwinnipeg.ca/htdocs/Net-SSH-W32Perl/Net/SSH/W32Perl.html
а как заинсталить?

Автор: amg 16.8.2007, 15:19

Для начала см. http://cpan.uwinnipeg.ca/htdocs/faqs/ppm.html. Там адреса различных репозитариев.
Я сейчас попробовал поставить себе на винду этот модуль. Выглядело это так:
В консоли сказал ppm. ppm запустился и дал мне свою командную строку. В ней надо ввести всего две команды:
ppm> rep add uwinnipeg http://theoryx5.uwinnipeg.ca/ppms/
ppm> install Net::SSH::W32Perl
После этого сначала установились десятка полтора модулей из зависимостей, под конец и сам Net::SSH::W32Perl. Пробуй. Очевидно, что устанавливать этот модуль вручную, с учетом того, сколько у него зависимостей - занятие для мазохистов.

Автор: fantome 16.8.2007, 16:43

amg,

Цитата

устанавливать этот модуль вручную, с учетом того, сколько у него зависимостей - занятие для мазохистов

если надо - то и вручную установишь...

а так - спасибо за ссылки... Благодарю...
Сам юзаю и под линем и под вынью перл... но вот под вынь не знал репозитариев.. а cpan'овские не подходят...

Автор: Sojer 17.8.2007, 10:34

amg
вери сэнкс, вопросов больше нет

фак, вопросы всётки есть! =((
скрипт:

Код

use Net::SSH::W32Perl;

my $host = '****';
my $ssh = new Net::SSH::W32Perl (
            $host, 
            protocol => 2,
            debug    => 1 );
$ssh->login('****', '****');
my ($out, $err, $exit) = $ssh->cmd('cat', 'Hello Net::SSH::W32Perl User!');

Код

H:\My projects\Perl\SSH 4 win>perl -c s.pl
s.pl syntax OK

H:\Perl\SSH 4 win>s.pl
The getpwuid function is unimplemented at C:/Perl/site/lib/Net/SSH/Perl.pm line
110.

H:\Perl\SSH 4 win>

что за фигня? smile

Автор: fantome 17.8.2007, 10:48

Sojer,
модуль Net::SSH::W32Perl использует Net::SSH::Perl модуль... А гворит он что не может выполнить функцию из этого модуля...
Совет - пройдись в отладке... возможно что что-то не определено...

Автор: Sojer 17.8.2007, 11:15

хз, проверил сам Perl.pm:

Код

C:\Perl\site\lib\Net\SSH>perl -c Perl.pm
Perl.pm syntax OK

C:\Perl\site\lib\Net\SSH>

на всякий случай закоментировал use strict; не помогло

вот кусок где ошибка:
109:    my %arg = @_;
110:   my $home = $ENV{HOME} || (getpwuid($>))[7];
111:    my $user_config = delete $arg{user_config} || "$home/.ssh/config";

getpwuid нигде не определена, что за функция я хз ...

Автор: Nab 17.8.2007, 12:15

напиши в начале скрипта

Код


BEGIN {
  $ENV{HOME} = $ENV{APPDATA} || $ENV{USERPROFILE}
}

Автор: fantome 17.8.2007, 14:28

Sojer,

Цитата

вот кусок где ошибка:
109:    my %arg = @_;
110:   my $home = $ENV{HOME} || (getpwuid($>))[7];
111:    my $user_config = delete $arg{user_config} || "$home/.ssh/config";

getpwuid нигде не определена, что за функция я хз ...

это юниксовая функция...

Код


GETPWNAM(3)                                            Linux Programmer's Manual                                            GETPWNAM(3)



NAME
       getpwnam, getpwnam_r, getpwuid, getpwuid_r - get password file entry

SYNOPSIS
       #include <sys/types.h>
       #include <pwd.h>

       struct passwd *getpwnam(const char *name);

       struct passwd *getpwuid(uid_t uid);

       int getpwnam_r(const char *name, struct passwd *pwbuf,
               char *buf, size_t buflen, struct passwd **pwbufp);

       int getpwuid_r(uid_t uid, struct passwd *pwbuf,
               char *buf, size_t buflen, struct passwd **pwbufp);

А ты возможно пытаешься под винду это замутить... Возможно, что там надо делать какие-то извороты...

Автор: Sojer 17.8.2007, 14:39

впринципе вариант nab'а работает, только скрипт после выполнения команды вообще не хочет закрываться. и не выводит результат выполненной команды ... какой-то сырой модуль

Автор: fantome 17.8.2007, 14:59

Sojer,

Цитата

т.е. процесс висит???
А вывод наверно надо вручную делать. Читать из дескриптора соединения и на экран выводить...

Автор: Sojer 17.8.2007, 15:33

да, висит процесс. в отладочном режиме логи:
...
fuckingpendoss: Sending command: id
fuckingpendoss: Requesting service exec on channel 1.
fuckingpendoss: channel 1: open confirm rwindow 0 rmax 32768
и всё ...

Автор: Loki 4.7.2008, 04:14

А версия перла какая была?
у меня так не пашет

Код


Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::FastCalc at D:/Perl5.8/site/lib/Crypt/DH.pm line 6
....
Key class 'Net::SSH::Perl::Key::RSA' is unsupported: Can't locate Net/SSH/Perl/Key/RSA.pm in @INC (@INC contains: D:/Perl5.8/site/lib D:/Perl5.8/lib .) at (eval 23) line 1.
BEGIN failed--compilation aborted at (eval 23) line 1.

а еще вот что мне понравилось... smile

srv: Reading configuration data C:\Documents and Settings\Admin\Application Data/.ssh/config
srv: Reading configuration data /etc/ssh_config

разобрался smile