我正在编写一个始终在 Windows 上运行的迷你应用程序。它有两个任务:
读取源自 unix 系统的文本文件并输出具有相同内容但以 windows 文件结尾的新文件。
从 Windows 系统读取文本文件并输出具有相同内容但以 unix 文件结尾的新文件。
应始终从 tcl 自动处理通道输入行尾。
但是 -eofchar 需要两个参数,一个用于输入,一个用于输出。我必须将什么作为参数传递给 -eofchar 以完成任务 1 以及完成任务 2 的内容?
我的 make windows eof proc 代码:
proc MakeWin {} {
# read file
set types {
{{All Files} * }
}
set filename [tk_getOpenFile -filetypes $types]
set infile [open $filename]
# open file for writing
set PathWname [tk_getSaveFile -filetypes $types -initialdir $DefPath -title "Save Results as:"]
set outfile [open $PathWname w]
# chan configure $outfile -eofchar ??
#
while {[gets $infile line] >= 0} {
puts $outfile $line
}
close $infile
close $outfile
}