Tcl实现Http服务操作

这篇博客介绍了如何在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"
        :
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值