tcl pause & dans l'attente touche enfoncée pour continuer

Je suis à la recherche d'un moyen de tcl pour interrompre le script (par exemple, après quelques sorties avec des "puts") et d'attendre l'appui d'une touche de l'utilisateur avant de poursuivre à la sortie de la suite de ce texte.

Êtes-vous sûr que vous voulez construire que dans le script? Quelqu'un pourrait vouloir envoyer la sortie vers un fichier ou une pipe à grep, sed ou quoi que ce soit. Une meilleure solution consiste à canaliser la sortie des scripts à l'un des programmes more (disponible sur Windows) ou less.

OriginalL'auteur user2669068 | 2013-09-24

  1. 4

    Avec gratitude à Hai Vu de la réponse, si vous êtes sur un système de type unix, avec stty

    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

    Lien vers une discussion approfondie sur le wiki Tcl: La lecture d'un caractère unique à partir du clavier à l'aide de Tcl

    Faire la même chose sur Windows requiert l'aide de la TWAPI paquet de sorte que vous pouvez changer le mode terminal. C'est un peu long pour un commentaire.

    OriginalL'auteur glenn jackman

  2. 11

    Vous suffit d'utiliser gets à lire à partir de stdin:

    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
    +1 pour ta Réponse. Belle de code fourni. Après avoir vu votre réponse, 1 question est venu à mon esprit.. si je veux de l'utilisateur à appuyer sur une touche"? pas seulement "Entrée"... Est une telle chose est possible? J'aurais commencé cette question dans un nouveau fil de discussion, mais n'est pas sûre pour un tel scénario.. Est-il une option/?
    merci pour ce petit code, il fonctionne très bien avec la touche enter.

    OriginalL'auteur Hai Vu

  3. 0

    Une solution potentielle pour Windows:

    exec -ignorestderr [file join $env(windir) system32 cmd.exe] /c pause

    Cet avis de non-ascii des touches trop (comme les touches de direction, Échappement, etc.).

    Une autre solution est l' Le Mode Raw sur Windows proposé par
    Donal Boursiers ci-dessus
    (merci pour le lien!), qui peut être résumée en
    ces deux lignes de code:

    twapi::modify_console_input_mode stdin -lineinput 0 -echoinput 0
read stdin 1

    Ce n'est pas l'avis d'Échappement, des touches de direction (ci-après, et vous devrez peut-être restaurer l'entrée de la console de mode plus tard).

    OriginalL'auteur robert4