如何在TCL中将终端光标位置保存到变量中

故障根因 #

原有代码无法捕获结果的核心原因：

• 终端默认处于规范输入模式，需等待回车才会返回输入内容，终端回传的光标位置ANSI序列不会触发主动返回
• 终端默认开启输入回显，回传序列会被直接打印到终端而非传递给程序
• 混用/dev/tty写和stdin读，若脚本标准输入被重定向则完全无法读取终端返回内容

可运行实现代码 #

# 备份原有终端配置，避免破坏用户使用环境
set old_stty [exec stty -g < /dev/tty]

try {
    # 修改终端配置：关闭规范模式、关闭输入回显，满足1个字符即返回无等待
    exec stty raw -echo min 1 time 0 < /dev/tty

    # 打开tty读写句柄
    set tty_fd [open /dev/tty r+]
    # 发送光标位置查询指令，禁用自动换行，立即刷新缓冲区
    puts -nonewline $tty_fd "\033\[6n"
    flush $tty_fd

    # 读取返回的ANSI序列，格式固定为\033[<行>;<列>R，最长不超过10字符
    set raw_pos [read $tty_fd 10]
    close $tty_fd

    # 解析行列值，可按需使用
    regexp {\033\[(\d+);(\d+)R} $raw_pos -> row col
} finally {
    # 恢复终端原有配置
    exec stty $old_stty < /dev/tty
}

# 输出结果示例
puts "原始返回序列：$raw_pos"
puts "当前光标位置：行 $row，列 $col"

补充说明 #

• 代码依赖TCL 8.6及以上版本，低版本可替换try/finally结构为catch做异常处理和终端配置恢复。
• 如果使用Tcllib的::term::ansi::send::qcp接口，仅能实现发送查询指令的功能，仍需自行完成终端模式修改、返回值读取解析的逻辑，无法直接获取光标位置。

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