Leer y escribir ficheros

Manejar ficheros en Tcl es muy simple. Aquí puedes ver cómo leer y escribir un fichero con el comando file

set file "test.txt"

if {![file exists $file]} {
    putlog "$file no existe."
    # Creamos uno.
    set fs [open $file w]
    puts $fs "una línea."
    puts $fs "dos líneas."
    puts $fs "tres líneas\ncuatro líneas.\n\n"
    close $fs
} 
# Uso r para abrir el fichero en modo lectura
# w para escribirlo desde cero
# a para añadir texto si ya existe o crearlo
set fs [open $file r]
set buffer [read $fs]
close $fs
# Ahora $buffer tiene todo el contenido del fichero. Para leerlo línea a línea sería:
set i 1
foreach line [split $buffer "\n"] {
    putlog " [incr i]: $line"
}
# Esta manera es más rápida que usar un while {...}

proc putlog {message} {
    puts $message
}