выполнить команду telnet через perl-скрипт

Question

Я пытаюсь выполнить команду через скрипт Perl с помощью telnet, кажется, что приведенный ниже сценарий способен успешно войти в систему, но не может выполнить команду. Я не могу найти правильное регулярное выражение, которое будет ждать подсказки > перед выполнением команды.

Вот изображение результата при входе нормально телнетом:

#!/usr/bin/perl 
use strict; 
use warnings; 
use Net::Telnet; 
my $remote_host = 'myrouter'; 
my $telnet = new Net::Telnet (Timeout=>10 ,Input_log => "received_data.txt"); 
$telnet->open($remote_host); 
$telnet->waitfor('/ADSL2PlusRouter login:/i'); 
$telnet->print('mylogin'); 
$telnet->waitfor('/Password:/i'); 
$telnet->print('my_password'); 
$telnet->waitfor('/-*>/'); 
$telnet->cmd("adsl show"); 
$telnet->print('exit'); 

Answer 1

Вы должны принять во внимание, что, вероятно, символ разрыва строки. Я не уверен, как строка, которую Net :: Telnet соответствует шаблону, выглядит точно, но, вероятно, достаточно добавить некоторые пробелы в шаблон.

$telnet->waitfor('/-\s*>/'); 

Таким образом, вы будете иметь последнюю черту конца линии на картинке, а затем, возможно, некоторые пробелы, которые были бы \n, а затем >.

Также проверьте https://regex101.com/r/eQ2pR0/1.

---

Update: Двигаясь дальше в Net::Telnet documentation я думаю, что первый пример очень полезно здесь. docs say this about prompt.

Этот метод устанавливает шаблон, используемый для поиска приглашения во входном потоке. Он должен быть строкой, представляющей действительный оператор соответствия шаблону perl. Методы login() и cmd() пытаются прочитать до соответствия подсказке. Они будут терпеть неудачу с ошибкой тайм-аута, если выбранный вами шаблон не совпадает с отправкой удаленной стороны.

Поэтому я думаю, что вам не нужно использовать waitfor, но вместо этого используйте prompt.

$telnet->print('my_password'); 
$telnet->prompt('/^> /'); 
$telnet->cmd("adsl show"); 

Поскольку маршрутизатор не имеет никакой информации в своей строке, просто установив его на «начало строки, > и пространство должно работать.