Tcl/Tk: Ler o conteúdo de um arquivo (texto)

Para ler/extrair todo o conteúdo de um arquivo de texto, basta:

1. criar um ponteiro para abrir o arquivo;
2. ler o conteúdo *do ponteiro* com o parâmetro “r” (read);
3. fechar o arquivo por meio do ponteiro;
4. imprimir o conteúdo na tela do terminal.

set _ponteiro [ open "/home/LES/codare.txt" "r" ]
set _conteúdo [ read $_ponteiro ]
close $_ponteiro
puts "$_conteúdo"

Eu escolhi os nomes “_ponteiro” para a variável do ponteiro e “_conteúdo” para a variável do conteúdo, mas qualquer nome é válido. Use a sua imaginação como quiser. Veja que até acentos são permitidos nos nomes das variáveis. ;-)