TCL脚本中不同格式十六进制数的比较问题求助

问题出在两个变量的类型与格式解析逻辑上：

• set read1 0x00001111 中，TCL会自动将0x开头的字符串解析为十进制整数（值为4369）。
• set read2 32'h00001111 是Verilog风格的十六进制表示，TCL不会自动解析，它只是普通字符串；直接和整数read1比较时，TCL尝试将字符串转成整数会失败；而你用scan $read2 %x时，只会从字符串开头读取合法的十六进制字符（即"32"），但你实际需要的是h后面的00001111部分，所以结果不符合预期。

修复方案 #

可以通过以下两种方式解析32'hxxxx格式的字符串，再进行整数比较：

方法1：使用scan命令指定格式

调整scan的格式字符串，跳过前面的位宽和h字符，直接读取后面的十六进制部分：

set read1 0x00001111
set read2 32'h00001111

# 解析Verilog风格的十六进制：%*d 读取并丢弃位宽数字，匹配'h'后读取十六进制值
scan $read2 "%*d'h%x" new_read

if {$read1 == $new_read} {
    puts "Two values equal"
}

方法2：使用正则表达式提取十六进制部分

先提取h后面的十六进制字符串，再转换为整数：

set read1 0x00001111
set read2 32'h00001111

# 用正则提取h后的十六进制内容
if {[regexp {h([0-9a-fA-F]+)} $read2 -> hex_str]} {
    scan $hex_str %x new_read
}

if {$read1 == $new_read} {
    puts "Two values equal"
}

两种方法都能正确将32'h00001111转换为十进制整数4369，和read1的值一致，从而通过相等性判断。

内容的提问来源于stack exchange，提问作者Perry Johnson