TCLでhttp getクエリで応答を取得する方法

Question

サイトにリクエストを送信して返信する小さなコードがあります。私は言語だけを理解し、それを行う方法を理解していません。 ここには、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 

しかし、コードを実行するとき、私は、httpパッケージは、あなたのTclインタープリタにロードする必要がありますエラー

invalid command name "http::geturl" 
    while executing 

Answer 1

を取得します。それはデフォルトではありません。このように、（ちょうど#!行の下）あなたのスクリプトの先頭には入れ：それはすべてのものを見ることが容易になりますよう

package require http 

を確かに、それは、あなたがそのように依存してすべてのパッケージを述べるために通常は良いでしょう（そしてあなたはあなたが望むバージョンを任意に指定することができます）：

#!/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 

パッケージ名は大文字と小文字が区別されます。そしてあなたはできます