在TCL中将一个大的十六进制数拆分为一个32位的列表

# 定义一个大的十六进制数
set hexNumber "0x123456789abcdef"

# 去除十六进制数的前缀"0x"
set hexNumber [string range $hexNumber 2 end]

# 将十六进制数转换为二进制字符串
set binaryNumber [binary format H* $hexNumber]

# 定义一个空的列表用于存储32位的二进制数
set binaryList {}

# 每次取32位二进制数并添加到列表中
for {set i 0} {$i < [string length $binaryNumber]} {incr i 32} {
    set binary32 [string range $binaryNumber $i [expr {$i+31}]]
    lappend binaryList $binary32
}

# 打印结果
puts $binaryList