Tcl实现Http服务操作

最新推荐文章于 2024-01-28 17:36:31 发布

newyf_cun

最新推荐文章于 2024-01-28 17:36:31 发布

阅读量2.6k

点赞数

CC 4.0 BY-SA版权

分类专栏： TCL脚本技术文章标签： tcl token url xml

本文链接：https://blog.youkuaiyun.com/newyf_cun/article/details/8012647

这篇博客介绍了如何在Tcl中利用http.tcl包进行Http服务操作。首先，文章提到http.tcl已内置于Tcl核心，可以通过package require http来加载。随后，文章将详细阐述Tcl进行Http操作的具体方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1. 依赖包文件

http.tcl 已经默认安装在tcl的core中，可以使用package require http加载tcl的http模块。

2. 使用方式

#!/bin/sh

#command \
exec tclsh "$0" "$@"

#URl配置
set TEST_URL "http://127.0.0.1:8888/cgi-bin/test_cgi"

#0: 发明文xml, 1: 发转义后的xml
set XMLBodyType 1
proc SendHttp args {
    global TEST_URL XMLBodyType token
    if { $XMLBodyType == 0 } {
        set postMessage [lindex $args 0]
    } else {
        set postMessage [::http::formatQuery testdata [lindex $args 0]]
    }
    if {[catch {set token [::http::geturl $TEST_URL -query $postMessage]} errMsg]} {
        puts "geturl error: $errMsg"
        return -code -1 "geturl error: $errMsg"
    }
    return "send OK"
}

proc RecvHttp args {
    global token
    ::http::wait $token
    
    set rStatus [::http::status $token]
    if {$rStatus == "timeout"} {
        set errMsg "RecvHttp Error: http connect timeout"
        puts  "$errMsg"
        :