时间戳

首页 > 解决方案 > 如何从 Tcl 中的十六进制值字符串中提取位字段并将它们输出为整数？

tcl - 如何从 Tcl 中的十六进制值字符串中提取位字段并将它们输出为整数？

问题描述

我有代表十六进制值的字符串，其中包含多个位长不同的字段。我必须提取它们并将它们打印在屏幕上。例如 0x17AF018D1 是一个 33 位十六进制值，其中位索引为 0 到 32；我需要提取位 0-5、6-7、8-21、22-30、31-32 中包含的数字。

我敢肯定，有多种方法可以做到这一点。实现这种脚的最佳方法是什么？

标签： tcl

解决方案

十六进制值可以直接视为整数。Tcl 的整数实际上是任意精度值，但经过优化可以有效地使用主机系统的机器字长。（Tcl 透明地为您处理细节。）

这意味着位域提取器可以是这样的（假设是小端）：

proc BitField {value from to} {
    if {$from > $to} {
        error "reversed bit field description"
    }
    # How many bits wide is the field?
    set width [expr {$to - $from + 1}]
    # Convert the width into a bit mask in the lowest bits
    set mask [expr {(1 << $width) - 1}]
    # Shift and mask the value to get the field
    expr {($value >> $from) & $mask}
}

set abc 0x17AF018D1
puts [BitField $abc 0 5]
puts [BitField $abc 6 7]
puts [BitField $abc 8 21]
puts [BitField $abc 22 30]
# You are aware this overlaps?
puts [BitField $abc 30 32]

对于不重叠的连续字段，您可以这样做：

# Note that this is big endian as it is working with the string representation
scan [format "%033lb" $abc] "%3b%8b%14b%2b%6b" e d c b a

puts $a
puts $b
puts $c
puts $d
puts $e

字符串中的值是整体值/字段宽度：%033lb表示格式为 33 位二进制值（101111010111100000001100011010001在您的示例中），并且%3b表示此时解析 3 位二进制值。（不幸的是，我们不能让它更具可读性，因为说明符之间不能有空格，scan因为我们刚刚生成的输入数据中没有空格。）

推荐阅读