Объединенный Открытый Проект - Сайт для Настоящих Компьютерщиков

Объединенный Открытый Проект

Сайт для Настоящих Компьютерщиков

; Логин:
  Пароль:
Обычный
Безопасный
Запомнить пользователя



Зарегистрироваться
Забыли пароль?
 
 
 
Объединенный Открытый Проект »   Программирование »   Perl »   Net::SSH::Perl
RSS

Net::SSH::Perl

Текущий рейтинг темы: Нет

  Вперед>>Печать
 
JESUS
Новичок

JESUS
Откуда: Минск
Всего сообщений: 249
Рейтинг пользователя: 0





Дата регистрации на форуме:
10 сен. 2003
[B]Net::SSH::Perl[/B]
Может, кто подскажет, как использовать эту фигулину?
Или хотя бы русскую документацию знает где найти?
В английской нифига не понятно... :(

4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
Вряд ли. Описания к модулям редко переводят... А что там такого непонятного?

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
JESUS
Новичок

JESUS
Откуда: Минск
Всего сообщений: 249
Рейтинг пользователя: 0





Дата регистрации на форуме:
10 сен. 2003
[B]XXXX Pro [/B]
да ваще... как запустить-то эту фигню?
типа у мя 22-й порт закрыт на работе и естессна с шеллом работать нет никакой возможности (причем порт закрыт не в локали, а на провайдере)...
мне сказали, что меня спасет этот сервер-сайд клиент... но как им пользоваться - ума не приложу...

4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
Если она небольшая (в пределах 100 Kb) - кинь мне на e-mail, посмотрю и постараюсь объяснить...

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
JESUS
Новичок

JESUS
Откуда: Минск
Всего сообщений: 249
Рейтинг пользователя: 0





Дата регистрации на форуме:
10 сен. 2003
[B]XXXX Pro [/B]
Ок... заранее спасибо :)

4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
В общем, я разобрался: там все довольно просто. Создание подключения:
$host = "localhost"; (имя хоста)
$params{"protocol"}="1,2"; (протоколы сначала пытаться SSH1, затем SSH2)
$params{"cipher"}="3DES"; (тип шифрования)
$params{"port"}=22;
$var = Net::SSH::Perl->new($host, %params);
Вход на сервер:
$var->login($login,$password);
Выполнение команды:
($out, $err, $exit) = $ssh->cmd($cmd, [ $stdin ])
$cmd - текст команды, $stdin - что записать в stdin, $out - результат выполнения команды (т.е. что она вывела)
$err - ошибки, которые были выведены в stderr
$exit - код возврата.
Остальное тебе вряд ли потребуется...
Но дело в том, что этот самый Net::SSH - это только модуль, а чтобы его использовать через броузер (насколько я понял, тебе именно это нужно), тебе придется самостоятельно написать небольшой CGI-скрипт, который будет принимать команду, отправленную с помощью HTTP-формы, устанавливать соедиение, выполнять ее, и выводить в броузер результат ее выполнения.

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
DmitryK1
Новичок


Всего сообщений: 3
Рейтинг пользователя: 0





Дата регистрации на форуме:
21 дек. 2007
с
DmitryK1
Новичок


Всего сообщений: 3
Рейтинг пользователя: 0





Дата регистрации на форуме:
21 дек. 2007
написал такой код:
    use Net::SSH::Perl;

    my $ssh = Net::SSH::Perl->new("10.2.8.37");

    $ssh->login("ya", "pass");

    my($stdout, $stderr, $exit) = $ssh->cmd("df -k");

    

    print "$stdout\n$stderr\n$exit\n";



выдаёт такую ошибку:

The getpwuid function is unimplemented at C:/usr/local/site/lib/Net/SSH/Perl.pm line 110.
at C:/usr/local/site/lib/Net/SSH/Perl.pm line 110
Net::SSH::Perl::_init('Net::SSH::Perl=HASH(0x1fd2270)') called at C:/usr/local/site/lib/Net/SSH/Perl.pm line 40
Net::SSH::Perl::new('Net::SSH::Perl', 10.2.8.37) called at C:/workspace/StipCol/test.pl line 7

запускал в винде с установленным :
Module: ActivePerl::Config Version: undef
Module: ActivePerl::DocTools Version: 2.01
Module: ActivePerl::PPM Version: 4.01
Module: ActiveState::RelocateTree Version: 1.04
Module: ActiveState::Scineplex Version: 1.01
Module: ActiveState::Utils Version:
Module: Archive::Tar Version: 1.3201
Module: Archive::Zip Version: 1.20
Module: Compress::Zlib Version: 1.4201
Module: DBD::SQLite Version: 1.13
Module: DBI Version: 1.58
Module: Data::Dump Version: 1.08
Module: Digest::HMAC Version: 1.01
Module: Digest::MD2 Version: 2.03
Module: Digest::MD4 Version: 1.5
Module: Digest::SHA1 Version: 2.11
Module: File::CounterFile Version: 1.04
Module: Font::AFM Version: 1.19
Module: HTML-Tree Version:
Module: HTML::Parser Version: 3.56
Module: HTML::Tagset Version: 3.10
Module: IO::String Version: 1.08
Module: IO::Zlib Version: 1.04
Module: LWP Version: 5.806
Module: MD5 Version: 2.03
Module: MIME-Base64-Scripts Version:
Module: Math::BigInt::FastCalc Version: 0.13
Module: Net::SSH Version: 0.08
Module: PadWalker Version: 0.09
Module: Perl Version: 5.8.8
Module: SOAP::Lite Version: 0.55
Module: Tcl Version: 0.89
Module: Term::ReadKey Version: 2.30
Module: Term::ReadLine::Perl Version: 1.0302
Module: Text::Autoformat Version: 1.13
Module: Text::Reform Version: 1.11
Module: Tk Version: 804.027
Module: Tkx Version: 1.04
Module: URI Version: 1.35
Module: Unicode::String Version: 2.09
Module: Win32::AuthenticateUser Version: 0.02
Module: XML::Parser Version: 2.34
Module: XML::Simple Version: 2.16
Module: libwin32 Version:

этот самый Net::SSH устанавливал с помощью ppm и мне кажется что надо ещё что-то доставить? но вот что...
кстати, консольный cch работает нормально...
и цель - выполнить удалённую команду и получить результат. так что если есть другие варианты. с удовольствием выслушаю.
4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
Надо только одно: читать внимательно сообщение об ошибках. Вот тут ведь все совершенно четко написано: The getpwuid function is unimplemented. Т.е. функция getpwuid под Windows не реализована, соответственно, вызвать ее не получится.
Оффтопик: Вызвано это тем, что ActiveState Perl — отстой. Советую скачать Perl в составе пакета CygWin или UWin, в них он реализован гораздо лучше.

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
DmitryK1
Новичок


Всего сообщений: 3
Рейтинг пользователя: 0





Дата регистрации на форуме:
21 дек. 2007
Ох! Спасибо за ответ.
я бы долго разбирался :) и не факт что понял. Тем более у меня стоит CygWin. Сначала я поставил ActiveState Perl а позднее поставил CygWin. и думал что библиотеки... ну в общем что всё заработает.

буду подчищать...
:)
  Вперед>>Печать
Объединенный Открытый Проект »   Программирование »   Perl »   Net::SSH::Perl
RSS
Быстрый переход в раздел:


Время выполнения скрипта: 0.0328. Количество выполненных запросов: 18, время выполнения запросов 0.0218