[Comm] Expect

[Eugene Prokopiev]

Теперь есть такой код:
expect {
   "Welcome" {
     expect {
       "login: "    { send "$username\r" }
     }
     expect {
       "password: " { send "$password\r" }
     }
     expect "\$"
     for {set i 1} {$i<7} {incr i} {
         send "delete bridge port intf ifname eoa-$i\r"
         expect {
           "\$"     { send_user "delete executed\n" }
           default  { send_user "delete execution failed: 
$expect_out(buffer)\n" }
         }
     }
     expect {
       "\$"         { send "exit\r" }
     }
     expect eof
   }
}

Вывод:

login: admin
password: delete executed
delete executed
delete executed
delete executed
delete executed
delete executed

Login Successful
$delete bridge port intf ifname eoa-1
Error: Entry does not exist
$
execution error

Получается полная ерунда. send "delete ..." я выполнил 6 раз, а увидел 
1, при этом "\$" я так и не дождался и вылетел по таймауту. Как такое 
может быть?

-- 
С уважением, Прокопьев Евгений