如何用TCL脚本从stdin读取1-2个字符并丢弃其余输入？

以下是满足需求的实现思路和代码：

1. 读取最多2个字符：用read stdin 2直接读取stdin通道的前2个字符，避免加载超长输入。
2. 过滤换行符：用户输入单个字符后回车时，read 2会读取到该字符加换行符，用string trimright去除末尾的换行，只保留有效输入字符。
3. 丢弃剩余输入：通过chan pending input stdin检测是否还有未读取的输入，若有则一次性读取并丢弃，确保后续输入不受干扰。

完整代码示例：

# 读取最多2个字符
set raw_input [read stdin 2]

# 移除末尾的换行符，提取有效输入
set user_input [string trimright $raw_input "\n"]

# 检查并丢弃所有剩余的未读输入
if {[chan pending input stdin] > 0} {
    read stdin [chan pending input stdin]
}

# 验证结果
puts "有效输入: $user_input"
puts "输入长度: [string length $user_input]"

关键细节说明： #

• 若用户输入1个字符+回车：raw_input为"x\n"，string trimright后得到"x"，剩余的换行符会被后续的丢弃操作处理。
• 若用户输入2个字符+回车：raw_input为"ab"，剩余的换行符会被丢弃。
• 若用户输入超过2个字符：比如abcdef\n，raw_input为"ab"，剩余的cdef\n会被全部读取并丢弃。
• TCL的read和chan操作本身是内存安全的，不会出现缓冲区溢出问题，无需额外担心超长输入的风险。

内容的提问来源于stack exchange，提问作者Vovan