0

我的 Tcl 源文件是 utf-8 格式。Tclhttpd 不能正确发送国家字符，所以我稍微修改了一下。但是，我也发送二进制文件，如 jpg 图像，有时二进制块存在于我的其他 utf-8 HTML 中。我很难计算正确的 Content-length 以完全匹配浏览器接收的内容（否则一些尾随字符会破坏下一个请求标头或浏览器每个请求等待 30 秒，直到超时）。

换句话说，我可以知道puts $socket写入套接字的字节数吗？

我发现了一个特定的 11 字节序列，它搞砸了计数：

proc dump3 string {
    binary scan $string c* c
    binary scan $string H* hex
    return [sdump $string]\n$c\n$hex
};#dump3
proc Httpd_ReturnData {sock type content {code 200} {close 0}} {
    global Httpd
    upvar #0 Httpd$sock data
    #...skip non-pertinent code...
set content \x4f\x4e\xc2\x00\x03\xff\xff\x80\x00\x3c\x2f
#content=ONÂÿÿ�</
#79 78 -62 0 3 -1 -1 -128 0 60 47
#4f4ec20003ffff80003c2f
puts content=[dump3 $content]
puts utf8=[dump3 [encoding convertto utf-8 $content]]

    if {[catch {
puts "string length=[string length $content] type=$type"
puts "stringblength=[string bytelength $content]"
    set len [string length $content]
    if [string match -nocase *utf-8* $type] {
        fconfigure $sock -encoding utf-8
        set len [string bytelength $content]
    }
puts "len=$len fcon=[fconfigure $sock]"
    HttpdRespondHeader $sock $type $close $len $code
    HttpdSetCookie $sock
    puts $sock ""
    if {$data(proto) != "HEAD"} {
        ##fconfigure $sock -translation binary -blocking $Httpd(sockblock)
        ##native: -translation {auto crlf} 
        fconfigure $sock -translation lf -blocking $Httpd(sockblock)
        puts -nonewline $sock $content
    }
    Httpd_SockClose $sock $close
    } err]} {
    HttpdCloseFinal $sock $err
    }
}

控制台上的输出是：

内容=ONÂÿÿ�</
79 78 -62 0 3 -1 -1 -128 0 60 47
4f4ec20003ffff80003c2f
utf8=ON�ÿÿ�</
79 78 -61 -126 0 3 -61 -65 -61 -65 -62 -128 0 60 47
4f4ec3820003c3bfc3bfc280003c2f
字符串长度=11 类型=文本/html；字符集=utf-8
字符串长度=17
len=17 fcon=-blocking 0 -buffering full -buffersize 16384 -encoding utf-8 -eofchar {{} {}} -translation {auto crlf} -peername {128.0.0.71 128.0.0.71 55305} -sockname {128.0.0.8第 8016 代}
HttpdRespondHeader 17

结果Content-Length: 17太多了，浏览器一直在等待。如果我只能事先知道，我的字符串会产生多少字节puts，剩下的就很容易了。有办法吗？

4

1 回答 1

1

对于通过 HTTP 传输的数据，内容长度应该是在网络上观察到的数据中的字节数。与Httpd_ReturnData您合作时，需要确保向其提供要传输的二进制数据；它不会为您处理数据编码。

要发送具有一定长度的二进制数据实际上很容易，您可以：

set binaryData [...]
Httpd_ReturnData $sock "application/octet-stream" $binaryData
# There are many other binary encodings; that's just the most universal one
# Choose the right one for your application, of course

要发送具有长度的文本数据，您需要做更多的工作encoding convertto：

set textData [...]
Httpd_ReturnData $sock "text/plain; charset=utf-8" \
        [encoding convertto utf-8 $textData]
# Similarly, text/plain is a decent fallback here too

（是的，如果您选择不同的编码，那么您应该在两个地方都提到这一点。您可能应该对当今时代的所有文本内容使用 UTF-8。）

如果您可以从文件中提取数据，则应该这样做；Httpd_ReturnFile比Httpd_ReturnData它可以使用有效的数据传输技术移动数据更有效。如果发送文本文件，您需要小心正确地描述文件的编码。到目前为止，最简单的方法是按照惯例，例如确定系统上的所有文本文件都是 UTF-8 ...

您实际上不应该使用string bytelength，因为它以 Tcl 的内部唯一编码之一（一种轻度非规范化的几乎 UTF-8）的单位报告。它返回的度量只有在你做一些非常奇怪的事情时才是正确的，比如生成需要知道缓冲区大小的 C 代码，其中包含将被输入 Tcl 实现的字符串，这很不是你在做什么（我已经在使用 Tcl 的 20 多年中只做过一次这种事情；我从未听说过其他合法用途）。我相信它已被弃用，正是因为它在被太多人使用时存在许多细微的错误。

于 2019-11-06T12:48:41.297 回答