Tcl如何无需按下回车键即可直接从stdin读取单个字符

原因说明 #

你给出的判断不正确，观察到的等待回车现象不是Tcl的问题，也不是你的fconfigure配置无效，而是系统终端默认工作在规范输入模式（Canonical Mode）：该模式下内核会缓存所有输入直到收到换行符（回车）或EOF才会将数据传递给用户进程，因此即使你将Tcl的stdin配置为非阻塞无缓冲，也拿不到未回车的输入。
你原代码运行后一次触发返回两个字符，正是因为回车后内核将你按下的a和换行符一起传递给了Tcl进程，触发了两次可读事件。

实现方案 #

你需要先修改终端的工作模式为非规范模式，关闭行缓冲，再配合你原有Tcl通道配置即可实现逐字符实时读取，注意必须在程序退出时恢复终端默认配置，否则终端会出现输入不显示、无法正常换行等异常。

完整可运行代码（Unix/Linux/macOS平台） #

# 保存终端原始配置，用于退出时恢复
set original_terminal [exec stty -g]
proc restore_terminal {} {
    global original_terminal
    exec stty $original_terminal
    puts ""
}
# 绑定所有退出场景，确保终端配置一定会被恢复
trap restore_terminal {EXIT SIGINT SIGTERM SIGHUP}

# 修改终端为非规范模式：关闭行缓冲，设置有1个字符输入就立刻返回
# 去掉`-echo`参数可以保留输入字符的回显
exec stty -icanon -echo min 1 time 0

proc readPrompt {} {
    set char [read stdin 1]
    # 过滤空输入
    if {$char eq ""} {
        return
    }
    switch $char {
        "q" {
            puts "\n正在退出..."
            set ::exit_flag 1
        }
        "p" {
            puts "\n已暂停后台线程"
            # 此处添加暂停后台线程的逻辑
        }
        default {
            puts "\n收到未知按键: [binary encode hex $char]"
        }
    }
}

# 原有配置保留
fconfigure stdin -blocking 0 -buffering none
fileevent stdin readable readPrompt

vwait exit_flag
restore_terminal

Windows平台适配 #

Windows下不需要调用stty，直接使用Tcl内置的控制台配置命令即可：

console config -stdinmode raw
# 其余逻辑和上面代码一致，退出时执行console config -stdinmode normal恢复即可

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