TCL!

Clase: lab de lenguajes de programacion
Hora: v1    Maestra: Dra Schaeffer

Los ultimos programas que realize fueron en lenguaje tlc.

Este primer programa lo encontre al estar buscando en la red manuales y ejemplos para saber como manejar este lenguaje y se me hizo interesante, lo que hace es que al ejecutarlo en la terminal te muestra la pagina codigo html que pongas en  "set pag"

package require http
set pag [http::geturl http://mini.net/tcl/540]
puts [http::data $pag]
http::cleanup $pag
package require http
set pag [http::geturl http://google.com]
puts [http::data $pag]
http::cleanup $pag




El segundo programa yo lo realize y lo que hace es que te pide un texto y el programa te lo codifica con la funcion string map; además de que te cuenta letras y espacios del texto con la funcion string length

#! usr/bin/tcl
puts "escribe el texto a codificar(en minunsculas): "
gets stdin txt

% string length $txt

% string map{a 1  c 3 d 4 e 5 h 8 i 9 k 11 l 12 m 13 n 14 o 15 q 17 s 19 v 22 w 23 x 24 y 25 z 26} $txt

puts $txt