Переключить вывод в переменную (String)

Question

Я начал программировать на Perl, и у меня возникла проблема, чтобы поместить выходные данные коммутатора (Cisco) в переменную.

Пример:

Я хочу отправить команду show version напереключатель ($easy->send_command("show version");, а затем поместить ответ от переключателя в строку (не в другом файле).

После этого я буду искать в строке для сравнения версий (я объявляю в начале строки (этодругая переменная для сравнения), например $version = "bootflash:cat4500-ipbasek9-mz.122-50.SG2.bin";)

В данный момент я не знаю, как поместить вывод коммутатора в строку после отправки им команды Show version.

Кто-нибудь может мне помочь?

Answer 1

Добавьте символ возврата

$easy->send_command("show version\r");

Сохраните вывод

$version=$easy->exp_before;

Измените это на регулярное выражение

if ( $version =~ m"bootflash:cat4500-ipbasek9-mz.122-50.SG2.bin" ) {...}

не забудьте ввести термин len 0 перед ваминачать выполнение команд