Comment obtenir une réponse dans une requête http get dans TCL

Question

Il y a un petit code qui devrait envoyer une requête au site et recevoir une réponse. Je comprends seulement la langue et je ne comprends pas comment le faire. Voici le code qui envoie la requête en utilisant la méthode http get.

#!/usr/bin/expect 

set id [open file.txt w] 
set tok [::http::geturl "https://example.com/reques.php?=somedate -timeout 2000 -channel $id] 
::http::cleanup $tok 
close $id 
set id [open file.txt] 
set phone [read $id] 
close $id 
puts $phone 

Mais lors de l'exécution du code, je reçois une erreur

invalid command name "http::geturl" 
    while executing 

Answer 1

Le paquet http doit être chargé dans l'interpréteur Tcl; ce n'est pas par défaut. Ainsi, au sommet de votre script (juste en dessous de la ligne #!) mis:

package require http 

En effet, il est généralement une bonne idée de dire chaque paquet que vous dépendez de cette façon, comme il est facile de voir tout cela se passe (et vous pouvez éventuellement indiquer quelles versions vous attendez):

#!/usr/bin/expect 

# At least Tcl 8.5; 8.6 will be fine too 
package require Tcl 8.5 

# Any version of Expect 
package require Expect 

# Any version of the http package that supports the v2 API 
package require http 2 

Les noms de paquet sont sensibles à la casse. Et vous pouvez