【TCL脚本(一)：十六进制递增的方式，向telnet请求某项内容】

set term [getCurrentTerm]

set i 10624

 

while {1} {

 

　　set a [format " % 04x" $i ]

 

　　tsend $term "dev_cfg bsp fpga2_0 r $a " -s HW -t 1000

 

　　after 1000

　　incr i +1

　　if {$i>10751} {

　　　　error 脚本退出

　　}

 

}

 

#tputs "***** systerm date is [gettime] *****"、

备注：通过修改format函数中的" % 04x"用来产生4位十六进制数或8位十六进制数。这里i为十进制，转换为十六进制a,再递增i.即十六进制从0x2980递增到0x29ff.

参考：https://blog.csdn.net/tomorrowwang/article/details/2099772