tcl打包bin文件

本代码实现的是将bin（二进制文件）里的十六进制数按照次序一个一个提出来排列到一起，本例中采用的是40kbyte长度的文件，功能具体描述就是将40kbyte的数分批打包成40份，每份长度为1kbyte，存储在变量data$i中，便于其他函数调用。其中，总字节长度（40k），打包数（40）和打包块的大小(1k）可以根据需求去更改。

# 设置bin文件的路径
set bin_file "~/bin_file.bin"

# 打开文件进行读取
set file_id [open $bin_file r]
fconfigure $file_id -translation binary -eofchar {}

# 读取文件内容
set file_content [read $file_id]
close $file_id

# 确保文件大小为40K
if {[string length $file_content] != 40960} {
    puts "错误: 文件大小不为40KB"
    exit 1
}

# 将内容分割成40份，每份1KB
for {set i 0} {$i < 40} {incr i} {
    set start [expr {$i * 1024}]
    set end [expr {($i + 1) * 1024 - 1}]
    set data [string range $file_content $start $end]

    # 将数据转换为十六进制字符串
    set hex_data ""
    foreach char [split $data ""] {
        set hex_data "${hex_data}[format %02X [scan $char %c]]"
    }

    # 将数据存储到变量中
    set data_name "data[expr {$i + 1}]"
    set $data_name $hex_data
}

# 测试输出，显示每个变量的数据
for {set i 1} {$i <= 40} {incr i} {
    set data_name "data$i"
    puts "$data_name: [set $data_name]"
}