Исходное сообщение
"Настройка route-map, TCL, BGP" Отправлено anonymous, 04-Окт-13 19:54
fix: exp_send "show interfaces description\r" А далее, например, делаете цикл с построчным разбором: #в первой паре строчек скорее всего будет мусор set data [split $expect_out(buffer) "\n"] set dataLength [llength $data] for {set i 2} {$i<$dataLength} {incr i} {   set line [lindex $data $i]   #в tcl 8.5 можно использовать lassign, но на цисках обычно 8.3.4   set ifName [lindex $line 0]   set ifAdmStatus [lindex $line 1]   set ifOperStatus [lindex $line 2]   set ifDescr [lindex $line 3]   puts stdout "Found interface $ifName in state: $ifOperStatus\($ifAdmStatus\)" } Писал по памяти, могут быть ошибки. Принцип понятен?