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

最新推荐文章于 2024-04-30 11:04:21 发布

原创最新推荐文章于 2024-04-30 11:04:21 发布 · 930 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#后端 #python

数字后端专栏收录该内容

11 篇文章

订阅专栏

该文讨论了如何使用Tcl脚本批量替换文件中特定字符串的方法，对比了两种不同的实现方式，一种利用`regsub-all`支持正则表达式的全面替换，另一种则是简单的字符串替换，后者在处理简单替换任务时更为高效。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

**
我写出的版本：

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
}