TCL中的二进制格式变量

问题描述

我试图创建一个二进制消息以通过套接字发送，但是我在TCL将所有变量视为字符串的方式上遇到麻烦。我需要计算一个字符串的长度，并知道其二进制值。

set length [string length $message]
set binaryMessagePart [binary format s* { $length 0 }]

但是，当我运行它时，出现错误“期望的整数，但出现了“ $ length””。如何使它工作并返回整数5而不是char 5的值？

解决方法

要计算字符串的长度，请使用string length。要计算特定编码中字符串的长度，请将字符串转换为该编码，然后使用string length：

set enc "utf-8";  # Or whatever; you need to know this ahead of time for sanity's sake
set encoded [encoding convertto $enc $message]
set length [string length $encoded]

请注意，对于编码长度，该长度将以字节为单位，而编码之前的长度将以字符为单位。对于某些消息和某些编码，差异可能很大。

要使用消息的长度和正文（相当常见的二进制格式）编写二进制消息，请像这样使用binary format：

# Assumes the length is big-endian; for little-endian,use i instead of I
set binPart [binary format "Ia*" $length $encoded]

您在做错什么了，使用s*消耗了一个整数列表，并在输出字符串中产生了一个小尾数短整数二进制值的序列，但实际上却在馈送{{1 }};并且 string $length 0不是整数，因为它们不是以$length开头。相反，我们可以做$来产生[list $length 0]的论点，这本来可以用，但是对于问题的上下文似乎并不正确。

在s*中，这些是常见的格式（还有更多）：

• binary format用于字符串数据（通常为“ ASCII”）；这是二进制字符串数据，您需要先对其进行编码。
• a和i用于32位数字（就像许多编程语言一样，通常是C，通常为“ I”）。大写字母为大端，小写字母为小端。
• int和s用于16位数字（通常为“ S”）。
• short用于8位数字（C语言中通常为“ c”）。
• char和w用于64位数字（通常是“宽整数”）。
• W和f用于IEEE二进制浮点数（通常分别为“ d”和“ float”，即4和8个字节）。

全部后面可以跟一个可选的长度，可以是数字或double。对于数字，而不是插入单个数字，而是插入它们的列表（因此消耗列表）。数字给出固定长度，而*执行“所有列表”。对于字符串格式指示符，数字使用消息中的固定字节数（必要时截断或填充零字节），而*执行“所有字符串”（绝不截断或填充）。