Tcl代码写入文件出现多余空行，求原因及替代解决方案

空行的来源 #

你的代码里每次调用puts命令时，默认都会在输出内容末尾自动添加一个换行符（\n）。执行完三次puts后，写入文件testout.txt的内容实际是：

1\n2\n3\n

也就是每行内容后都带换行，包括最后一行的3后面也有一个换行符。当你用文本编辑器或某些命令查看文件时，这个末尾的换行符会被解析为“下一行的起始”，从而显示出第四行空行——本质上这个空行并不是实际存在的内容，而是文件末尾换行符导致的显示效果。

替代puts -nonewline的处理方式 #

如果觉得逐行加-nonewline太繁琐，可以试试以下两种方法：

1. 拼接内容后一次性写入 #

先把所有要输出的内容拼接成不带末尾换行的字符串，再用一次puts写入：

set fid [open testout.txt w]
set content "1\n2\n3"
puts $fid $content
close $fid

这样文件里的内容就是1\n2\n3，没有末尾的换行符，也就不会出现多余的空行。

2. 写入后截断末尾的换行符 #

先按原来的方式写入所有内容，再通过通道操作去掉最后一个换行符：

set fid [open testout.txt w]
puts $fid 1
puts $fid 2
puts $fid 3
# 将文件指针移到最后一个字节（即末尾换行符）之前
seek $fid -1 current
# 截断文件到当前指针位置
chan truncate $fid
close $fid

这种方法适合需要逐行写入，但又不想修改每行puts调用的场景。

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