文件操作示例脚本 tcl

Posted 2020-11-06 いつまでもいつまでも

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

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

set  fix_file  [open  "fix.tcl"  w]

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 $fix_file "size_cell  $cel_name  $ref_name"

}

close $fix_file