http://mikrotik.moscow Новое в теме Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik форума RouterOS на сайте Mikrotik.moscow [mikrotik.moscow] ru http://backend.userland.com/rss2 Sat, 01 Aug 2026 06:50:28 -0400 Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Expect — отличный инструмент («язык»), который очень облегчает жизнь при любом интерактивном стиле взаимодействия. Но, конечно, всем хочется использовать другие инструменты, например, обычный ssh или различные языки программирования. Важный момент, на который стоит обратить внимание — это обработка stderr локальным/удаленным компьютером. Это редко делается правильно, потому что «на глаз», когда сессия интерактивная, всё кажется «выводом» со стороны удаленного компьютера. Daniel
21.11.2004 13:18:00, daniel.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233689 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233689 Sun, 21 Nov 2004 13:18:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
В конце shell_cmd сопоставляем $out с регулярным выражением, примерно так: $out =~ / [1] \n([\S\s] )\n[\s\w/>]$/; $out = $1; \s\w/ ↩︎
10.11.2004 15:43:00, Eugene.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233688 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233688 Wed, 10 Nov 2004 15:43:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Аргхххххххх! Досадная ошибка в Mikrotik… Я это видел давным-давно… Когда подключаешься к консоли на каком-то хосте, происходит вот что: после первой отправленной \r начинает работать нормально. До этого можно набрать команду, но удалить её и использовать клавишу "tab" не получается, потому что выдаёт 94A и после этого ничего не происходит… Если нажать Enter, команда не выполняется, но всё снова начинает работать нормально… Аргхххххххх!
09.11.2004 23:58:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233687 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233687 Tue, 09 Nov 2004 23:58:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Я сделал walkaround. Просто добавь этот код в Net/Perl/SSH1.pm где-то после строки 339: sub shell_cmd {
   my $ssh = shift;

   my($prompt, $cmd) = @_;

   require Net::SSH::Perl::Handle::SSH1;

   unless ($cmd) {
       $ssh->{config}->set('use_pty', 1)
           unless defined $ssh->{config}->get('use_pty');
   }
   $ssh->_setup_connection;

   $ssh->debug("Requesting shell.");
   my $packet = $ssh->packet_start(SSH_CMSG_EXEC_SHELL);
   $packet->send;

   my ($packet,$pr);
   do {
       $packet = Net::SSH::Perl::Packet->read($ssh);
       $pr = $packet->get_str;
   } while ( ($pr =~ /$prompt/ ) == 0 );

   $ssh->debug("Sending command.");
   my $packet = $ssh->packet_start(SSH_CMSG_STDIN_DATA);
   $packet->put_str($cmd);
   $packet->send;

   $ssh->debug("Command sended");

   my $out = "";

   do {
       $packet = Net::SSH::Perl::Packet->read($ssh);
       $out .= $packet->get_str;
   } while ( ($out =~ /$prompt/ ) == 0 );
   $ssh->_disconnect;
   ($out);
}
Скрипт выглядит так: #!/usr/bin/perl
use Net::SSH::Perl;
$ssh = Net::SSH::Perl->new("host_here", port => 22, protocol => 1, use_pty => 1, debug => 0 );

$ssh->login('admin', 'password_here');

($out) = $ssh->shell_cmd("] >","/ppp active print count-only\r");

($out =~ /(\d+)/) && (($out) = ($1));

print $out;
Я создал функцию shell_cmd. Она принимает 2 параметра. Первый — это ожидаемый промпт, а второй — команда для выполнения. Известные ошибки: команда, выполненная, находится в первой строке вывода. Последняя строка — это промпт. Так как я забыл язык PERL, любая помощь в исправлении ошибок приветствуется.
09.11.2004 20:44:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233686 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233686 Tue, 09 Nov 2004 20:44:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Я немного вас обманул. Скрипт, который работает с 2.7.18, имеет use_pty => 1. Если я установлю его в ноль, я получу тот же результат, что и с 2.8.18. Но 2.8.18 не работает даже с use_pty => 1.
09.11.2004 17:38:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233685 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233685 Tue, 09 Nov 2004 17:38:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Кажется, один и тот же скрипт работает и с RouterOS версии 2.7.18. Какие есть идеи? (Похоже на какую-то ошибку в RouterOS).
09.11.2004 17:10:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233684 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233684 Tue, 09 Nov 2004 17:10:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
У меня была такая же проблема ещё пару месяцев назад, но я разобрался. Вот только не помню, как именно это сделал. Большой раз между Net::SSH и Net::SSH::Perl. Net::SSH использует команду ssh. Net::SSH::Perl — это SSH-клиент, полностью написанный на Perl. Когда я вспомню, как это сделал, обязательно здесь напишу.
09.11.2004 17:04:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233683 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233683 Tue, 09 Nov 2004 17:04:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Кажется, MikroTik не поддерживает выполнение команд через интерфейс $ssh user@host command. Expect позволяет разбирать строки с помощью регулярных выражений. Если этого недостаточно, можно вызвать Expect из Perl-скриптов. Я не особо разбираюсь в Expect, просто не вижу другого надежного способа.
09.11.2004 15:24:00, Eugene.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233682 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233682 Tue, 09 Nov 2004 15:24:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Видел я, но есть небольшие проблемы с запуском. Еще хочу написать несколько скриптов для работы со строками и прочие штуки. Не понимаю, в чем дело, и хочу понять, почему работает на Linux, а не на Mikrotik.
09.11.2004 11:08:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233681 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233681 Tue, 09 Nov 2004 11:08:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Я бы выбрал Expect.
09.11.2004 09:58:00, Eugene.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233680 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233680 Tue, 09 Nov 2004 09:58:00 -0500 RouterOS Проблемы с использованием Perl Net::SSH:Perl lib и Mikrotik RouterOS в форуме RouterOS.
Я написал этот скрипт: use Net::SSH::Perl;
$ssh = Net::SSH::Perl->new("host", port => 22, protocol => 1, use_pty => 0);

$ssh->login('admin', 'pass') or die("Cannot connect to host");

($out, $err, $exit) = $ssh->cmd('/ppp active print count-only');

print $out; Но когда запускаю его, получаю в выводе "/ppp?", а $error установлен в 127. Тот же самый скрипт, только меняю хост на удалённую Linux-машину и команду для выполнения, и всё работает нормально. Какие идеи?
P.S.: Заметил, что скрипт не подключается к роутеру. Если изменить скрипт на следующий код, он устанавливает удалённую сессию:
use Net::SSH::Perl;
$ssh = Net::SSH::Perl->new("host", port => 22, protocol => 1, use_pty => 0);

$ssh->login('admin', 'pass') or die("Cannot connect to host");
use Term::ReadKey;
ReadMode('ultra-raw');
$ssh->shell;
ReadMode('restore');
08.11.2004 19:14:00, _ASM.]]> http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233679 http://mikrotik.moscow/forum/forum57/61172-problemy-s-ispolzovaniem-perl-net_ssh_perl-lib-i-mikrotik/message233679 Mon, 08 Nov 2004 19:14:00 -0500 RouterOS