Возможно ли это с помощью Perl?

Question

Как только я вхожу в свою систему (в основном Linux), я получаю экран ниже

Теперь я использую кнопку со стрелкой и иду к «GET_TESTROOT», а затем нажимаю «Ввод» и выводит меня на этот экран

! [Второе изображение] [2]

Здесь я подтверждаю и говорю "да", и это выведет меня на другой экран

Теперь мне нужно получить «серийный номер» и «идентификатор rootroot» в переменную.

Возможно ли это даже в perl?

Answer 1

Если эти «экраны» появляются сразу после входа в систему (т. Е. Выполняются из .profile или устанавливаются непосредственно как пользовательская оболочка), тогда короткий ответ - нет!

Длинный ответ: причиныможет .Вам нужно было бы создать сценарий Ожидает , который подключается к серверу, отправляет некоторые фальшивые нажатия клавиш и анализирует вывод (который выглядит как какой-то вариант curses для меня).Когда этот скрипт готов, вы можете вызвать его из Perl и извлечь нужные значения.

Большинство необходимых вам инструментов вы можете получить из cygwin .