| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: Системное программирование > SSH клиент на перле |
| Автор: Ramirez 22.9.2005, 00:09 |
| Задача собственно получать вывод некоторых комманд с удаленной машины. Решил воспользоваться Net::SSH но что-то по докам написанный пример у меня отказался работать (сослался на несовместимость или отсутствие нужных сокетов). Может если кто-то уже решал подобнуб задачу - поделитесь опытом / примером кода. Заранее всем спасибо. |
| Автор: BlackLFL 1.10.2005, 09:22 |
| Покажите Ваш код, какую ошибку выдает, мы же не телепаты. |
| Автор: Sadok 3.10.2005, 11:20 |
| Разные версии SSH (1, 2) используются на клиенте и на сервере? |
| Автор: arto 10.10.2005, 12:43 |
| perldoc Net::SSH::Perl # perl -MNet::SSH::Perl -e '$ssh = Net::SSH::Perl->new($ARGV[0]); $ssh->login (@ARGV[1,2]); $stdout, $stderr, $exit) = $ssh->cmd($ARGV[3]);; print $stdout,"\n";' host user password w 1:55PM up 4 days, 21:33, 0 users, load averages: 0.00, 0.00, 0.00 USER TTY FROM LOGIN@ IDLE WHAT # |