学习Tcl（一）——文件操作和数值转换

今天学会了下面几个用法：

1. 文件操作

1.1 察看并打印当前目录：

puts "\n Output directory: [pwd]"

1.2 在当前目录下创建目录tmp：

file mkdir tmp

1.3 在tmp目录下创建并打开一个文件haha：

set fileid [open "tmp/haha" w+]

1.4 在文件中写入一些东西：

puts $fileid "haha"

1.5 关闭文件（不关闭，就看不到这个文件）：

close $fileid

 

2. 格式转换 riple

2.1 把十六进制整数转化为十进制整数：

set hex 5A
set tmp 0x
append tmp $hex
set dec [format "%i" $tmp]

2.2 把十进制整数转化为十六进制整数，并且自动前补零

(debug) 73 % set a 15
15
(debug) 74 % set hex [format "08X" $a]
08X --哈哈，这行是个典型错误
(debug) 75 % set hex [format "%08X" $a]
0000000F
(debug) 76 % set hex [format "%08x" $a]
0000000f -- 大写变小写

(debug) 77 % set hex [format "%016x" $a]
000000000000000f --8 位变16位

(debug) 78 % set hex [format "%16x" $a]
f --如果不补零...

• 学习Tcl（一）——文件操作和数值转换