Discussion :

[kitigwen]

Bonjour,
J'essaye de développer un script pour interroger périodiquement un équipement et récupérer des compteurs.
Je voudrais récupérer le résultat de la commande d'interrogation des compteurs soit dans un fichier soit dans une variable.

Pour rediriger la commande vers un fichier, j'ai essayé le code suivant, mais le fichier ne contient que des lignes vides :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
puts $fic [ expect {
	")#" {send "display statistics 0 3\n"}
	} ]

C'est une question de débutant, mais j'en suis bien un.
Merci de votre aide.
Cdlt,
Kitigwen

[Invité]

Bonjour,

Pour récupérer le résultat d'une commande classique (expr {3*6} dans mes exemples), il suffit d'utiliser les commandes set ou catch comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
set res [expr {3*6}]
catch {expr {3*6}} res

Dans les deux exemples ci-dessus, le résultat est affecté à la variable res.

Par contre, expect est bien plus complexe à utiliser. Pour le maîtriser je te conseille de lire la page du wiki : http://wiki.tcl.tk/201, en particulier la page des exemples : http://wiki.tcl.tk/11583 et celle des tutoriels : http://wiki.tcl.tk/11584.

Bon apprentissage.

[baymard]

Bonjour à tous, j'ai presque le même soucis, j'ai en fait écris des scripts sous Linux qui marchent très bien mais une fois sous Windows je bloque, comment faire pour que cela marche aussi sur Windows, j'ai déjà installé Tcl/tk sur mon Windows mais lorsque je lance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wish info_telnet.sh

une erreur est renvoyée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

invalid command name "./testbs" while executing "./testbs 10.10.30.1 > testbs.txt && sed ni'1p"

pour mieux expliquer ce que j'ai fait, j'ai dabord écrit des scripts "Expect" par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/expect
#
# Written by Ner (bellayma@yahoo.fr) - June 2013
#
 
spawn telnet [lindex $argv 0]
 
expect ":" {send "admin\r"}
expect ">" {send "1"}
expect ">" {send "1"}
expect ">" {}

puis j'ai associé ces scripts dans un script shell

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
#!/bin/bash
#
# Written by Ner (bellaymard@yahoo.fr) - June 2013
#
./testbs 10.10.30.1 > testbs.txt && sed -ni '1p;26p;27p;35p;60p;61p;62p;63p;64p;65p;66p;67p;68p;69p;70p;73p' testbs.txt
./testgps 10.10.30.1 > testgps.txt && sed -ni '68p;69p;70p;72p;74p' testgps.txt
./testnpu 10.10.30.1 > testnpu.txt && sed -ni '23p;26p;27p;56p;57p' testnpu.txt
./testodu 10.10.30.1 > testodu.txt && sed -ni '23p;26p;27p;33p;37p;38p;39p;40p;44p;45p;46p;47p;51p;52p;53p;54p;58p;59p;60p;61p;65p;66p;67p;68p;72p;73p' testodu.txt
./testau 10.10.30.1 > testau.txt 
./testradac 10.10.30.1 > testradac.txt && sed -ni '43p;46p;47p;57p;58p' testradac.txt
./testradauth 10.10.30.1 > testradauth.txt && sed -ni '43p;46p;47p;57p;58p' testradauth.txt
cat testbs.txt testgps.txt testnpu.txt testodu.txt testau.txt testradac.txt testradauth.txt > 10.10.30.1.txt

il me faut absolument trouver une solution merci

[Invité]

Bonjour,

A la lecture de ton message, il me semble relever un potentiel problème important : bash, sed, /usr/bin et la syntaxe en dot-slash ne sont pas des concepts Windows !

A moins que ton histoire tourne sous cygwin (ou équivalent), ton problème vient tout simplement de là et n'est pas lié à Tcl.