TCL：将 binary/logical 数据写入文件

Question

我正在尝试将 1 或 0 的列表写入 tcl 文件中。我希望最有效的方法是以二进制格式编写它以使用尽可能少的位数，特别是因为我预计要处理许多兆字节的数据。我正在关注以下示例：

https://groups.google.com/forum/#!msg/comp.lang.tcl/HrC-VlfRL_E/PAQdLRTyrMEJ http://wiki.tcl.tk/1180

但是当我按照示例读取我的二进制数据时，我确实取回了工作 "binary"。到底是怎么回事？

Answer 1

以上示例使用语法

[format binary c1 0 1 1]

但应该转置 'format' 和 'binary'

[binary format c1 0 1 1]

根据https://www.tcl.tk/man/tcl8.5/TclCmd/binary.htm#M4

给出所需结果的示例脚本（tcl 8.5 可能是其他版本）：

set fp [open text.bin w]
set outBinData [binary format ccc 1 0 1 ]
puts "Format done: $outBinData"
puts -nonewline $fp $outBinData
close $fp
set fp [open text.bin r]
set inBinData [read $fp]
close $fp
binary scan $inBinData ccc val1 val2 val3
puts "Scan done: $val1 $val2 $val3"

TCL：将 binary/logical 数据写入文件

TCL: Write binary/logical data to file

binary

tk

tcl