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

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

1. 文件操作 riple

1.1 察看并打印当前目录： riple

   puts "\n Output directory: [pwd]"

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

   file mkdir tmp

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

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

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

   puts $fileid "haha"

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

   close $fileid

2. 格式转换 riple

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

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

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

   (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                                                                         --如果不补零...