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 

그러나 코드를 실행할 때, I는 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 

패키지 이름은 대소 문자를 구분합니다. 그리고 너는 할 수있다