tcl exec lit d'abord stdout puis stderr?

Question

J'ai trouvé que la commande tcl exec renvoie la chaîne de stdout d'abord, puis stderr. Par exemple, mon "script de test" suivant génère des messages dans cet ordre:

puts "test started" 
puts stderr "some non-fatal error goes to stderr" 
puts "test passed" 

Puis-je exécuter le script comme ceci:

set ret [ catch { exec sh -c $cmd } msg ] 

et ce que je reçois de $ msg est:

test started 
test passed 
some non-fatal error goes to stderr 

et cela me rend vraiment difficile d'obtenir le bon résultat.

Quelqu'un peut-il laisser se savoir s'il est possible d'obtenir les messages à la fois stdout et stderr dans l'ordre, et:

1) s'il vous plaît ne pas rediriger comme celui-ci, ce qui peut les obtenir tous pour effet:

set ret [ catch {exec $cmd >&log.txt} msg ] 

2) Je dois appeler que script Tcl dans mon script tcl, désolé

3) Je ne peux pas la source du script de test .tcl directement becau Il ya d'autres scripts appelés entre les deux et il ne fonctionnera pas si mon script tcl source juste ce script tcl.

J'utilise tclsh 8.3

Je ne sais pas si cela demande trop. J'espère que quelqu'un peut comprendre cela. Merci.

Answer 1

Tout d'abord, nous allons définir une commande simple pour les besoins des tests que nous pouvons être sûr, essai juste ce dont nous avons besoin:

set cmd "echo a; echo b >&2; echo c" 

Ensuite, nous utilisons un petit aide supplémentaire pour gérer la fusion des flux stdout et stderr (division de la commande sur plusieurs lignes pour plus de clarté afin que nous puissions voir où l'wrapperest et où l'exec est enveloppé):

set ret [catch { 
    exec sh -c $cmd |& cat 
} msg] 

Si nous testons, nous trouverons que nous obtenons $ret être 0, et $msg étant le commandé correctement:

a 
b 
c 

COMMEnT ça marche? L'astuce est |&, qui effectue la fusion lors de l'acheminement vers un autre processus. (Nous utilisons cat parce qu'il passe juste choses à travers sans interférer.)

Si vous utilisez Tcl 8.6 (en version bêta), vous pouvez utiliser chan pipe pour produire un canal que vous pouvez rediriger stdout et stderr dans le 2>@ fileId form, mais ce n'est pas si utile pour toi. (Vous êtes conscient que 8.3 est plutôt obsolète? Même 8.4 n'est plus vraiment supporté, 8.5 est ce que le code de production est recommandé de cibler.

Answer 2

Utilisez la commande source au lieu de exec que vous souhaitez appeler un script Tcl à partir d'un autre script Tcl:

set ret [catch {source $cmd} msg]