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

Question

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

Answer 1

您只需使用 gets从标准输入读取:

proc pause {{message "Hit Enter to continue ==> "}} {
    puts -nonewline $message
    flush stdout
    gets stdin
}

pause "Hurry, hit enter: "; # Sample usage 1
pause;                      # Sample usage 2, use default message