Проблема с захватом данных TCL - ожидайте

Question

Я хотел бы знать, как получить вывод предыдущей команды с TCL.

У меня сейчас следующая структура:

exp_send -i $spawn_id "show port-access supplicant\r"

set buff ""
expect -regexp {".*"}
    expect -regexp ".*#" {send "show port-access supplicant\r"}
expect eof

* Команда на данный момент возвращает правильную информацию, но я не знаю, как сохранить ее в переменной.

Я читал об ожидании, но не смог заставить его работать!

Answer 1

Вы можете использовать ожидаемый буфер для этого.Завершите 2 матча:

 expect -regexp ".#" {send "show port-access supplicant\r"}
 expect -regexp ".#"; #Match the prompt again after the device output returns

и попробуйте:

 puts $expect_out(buffer)