文件操作示例脚本 tcl

linux 下，经常会对用到文件操作，下面是一个用 tcl 写的文件操作示例脚本：

其中 set f01 [open "fix.tcl" w] 命令表示 打开或者新建一个文件“fix.tcl”，并将其 file ID 设置为 f01，后续就以这个 file ID 来操作这个文件；

然后 puts  $f01 "size_cell $cel_name $ref_name" 这条命令表示将这个字符串写入文件 fix.tcl，并自动追加换行符；

最后，对文件操作完成后，需要将其关闭，用命令 close $f01 。

需要注意的是，puts 命令不是立即将字符写入文件，而是先写在缓冲区中，最后执行 close $f01 命令时才会将缓冲区中的内容写入文件，所以对文件操作完成后，记住一定要将其 close

###########################
###  sample script  of  file_change #####

set  f01  [open  "fix.tcl"  w]  ## 打开文件并设置 file ID 为 f01

foreach_in_collection cel  [get_cells *dummy_*]  {

set  cel_name  [get_attr  [get_cells $cel]  full_name]
set  ref_name  [get_attr  [get_cells $cel]  ref_name]

puts $f01 "size_cell  $cel_name  $ref_name"  ## 将这串字符写入文件f01 （实际是写在缓冲区中）

}

close $f01   ## 将缓冲区内容写入文件，然后关闭文件