在TCL中，有没有办法使用原始二进制值？

Question

我知道你可以在TCL中使用原始十六进制值，但有一种优雅的方式来使用二进制文件吗？

我正在尝试做类似

的事情

if {[expr $var & 11100111b] != 11000001b} { ... }

Answer 1

使用0b：

前面的二进制值

if {($var & 0b11100111) != 0b11000001} { … }