每天一个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 {set i 0} {$i < [llength $in_lines] } {incr i } {
  regsub -all {my[0-3]} [lindex $in_lines $i] "my*" out_line
  lappend out_list $out_line
  }
  
foreach i $out_list {  
puts $out_f $i
}

chatGPT给出的答案：

chatGPT给出的版本缺点是无法使用正则匹配，优点是简单高效，适合简单的字符串替换。

一些补充指令介绍——string和regsub：