Tcl中如何将多行变量输出重定向到文件 写入仅保留最后一行问题咨询

问题原因 #

• 循环中每次直接对out变量执行赋值操作，会覆盖上一轮循环的处理结果，最终out变量只会保留最后一次循环的内容
• Tcl的列表索引从0开始计数，你的循环变量i初始值设为1，会直接跳过源文件的第一行内容
• 循环次数写死为i < 5，如果后续源文件行数发生变化，会出现漏处理行或者取空值的问题

修正后代码（无需逐行拆分的极简写法） #

这种全局替换的场景不需要拆分逐行处理，直接对整个文件内容做字符串替换即可，效率更高也不容易出错：

# 读取源文件全部内容
set f [open /tmp/linhas.txt r]
set content [read $f]
close $f

# 全局替换所有Linha为Line
set replaced_content [string map -nocase {Linha Line} $content]

# 写入新文件
set fp [open /tmp/outputFile.txt w]
puts $fp $replaced_content
close $fp

# 查看新文件
exec aterm -e vi /tmp/outputFile.txt

如需逐行处理的参考写法 #

如果后续需要对每行做额外的逻辑判断，可以用以下逐行处理的正确写法：

# 读取源文件
set f [open /tmp/linhas.txt r]
set content [read $f]
close $f
set lines [split $content "\n"]

set out_list [list]
# 遍历所有行，不需要写死循环次数
foreach line $lines {
    lappend out_list [string map -nocase {Linha Line} $line]
}

# 把处理后的行列表重新拼接为带换行的完整内容
set replaced_content [join $out_list "\n"]

# 写入新文件
set fp [open /tmp/outputFile.txt w]
puts $fp $replaced_content
close $fp

exec aterm -e vi /tmp/outputFile.txt

内容的提问来源于stack exchange，提问作者Diego Henrique