[TCL]hex转float函数

zongkai2003

proc hex2float {hex_list} {
    set temp_list {}
    set k 0
    foreach hex $hex_list {
        set bin [binary format H8 $hex]
        binary scan $bin R* float
        #set float [format "%.6f" $float]
        set temp_list [linsert $temp_list $k $float]
        incr k
    }
    return $temp_list
}

读入浮点数在内存中的hex值转换成tcl中的浮点数

sjtusonic

回复 1# zongkai2003


    好，能把这几句的工作解释一下吗？


        set bin [binary format H8 $hex]
        binary scan $bin R* float

binary这个命令平时不大用的。

zongkai2003

回复 2# sjtusonic


    用法在这里：http://www.tcl.tk/man/tcl8.5/TclCmd/binary.htm#M50

第一行是按照十六进制来读取8个字符，第二行是按照大端模式下的单精度浮点读取这些字符