key - tcl暂停并等待按键继续

我正在tcl中寻找一种方法来暂停脚本(例如，在某些带有“puts”的输出之后)并等待用户按下某个键，然后继续输出其余文本。

最佳答案

如果您使用的是带有 stty 的类Unix系统，请感谢Hai Vu的回答

proc anykey {{msg "Hit any key: "}} {
    set stty_settings [exec stty -g]
    exec stty raw -echo
    puts -nonewline $msg
    flush stdout
    read stdin 1
    exec stty $stty_settings
    puts ""
}
puts 1
anykey
puts 2

链接到Tcl Wiki上的详尽讨论:Reading a single character from the keyboard using Tcl

关于key - tcl暂停并等待按键继续，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/18993122/