每天一个tcl脚本练习-第1天

**

题目：批量替换文本中的某个字符串

**
我写出的版本：

set in_f [open "./in.f" r]
set out_f [open "./out.f" w]

set in_lines [split [read $in_f] "\n"]
set out_line " "
set out_list " "

for {