tcl - 如何使用 spawn 构建 telnet 应用程序？如何给用户输入“发送”命令？

Question

我正在尝试在 TCL 中构建一个 telnet 应用程序。

1. 每当设备提示时，我都必须提示用户。

2. 必须期待任何提示使其通用。

   我试过了：

   expect -re {^(.*)$}
   

   匹配任何东西。

3. 我必须从用户那里获取输入并将其发送到生成的进程。

4. 打印设备为用户给出的命令提供的任何内容。然后再次从步骤 1 开始。

我的问题是我不能gets stdin在做期望时使用。

例子：

while {1} {    
    expect {
        -re {^(.*)$}  {
            gets stdin cmd
            send "$cmd"
         }
    }
    # print the device output for $cmd here 
}

那么，有没有办法让用户输入“发送”命令？