Introduccion a TCL

TCL se trata de un lenguaje que mayormente lo estoy utilizando  para programar scripts a un bot del IRC, concretamente un eggdrop. Asi que en esta entrada voy a explicar un poco lo mas esencial de la programacion TCL y mas adelante ire comentando codigo y algun que otro script.

• Variables

Las variables no se declaran, simplemente con set le asignamos un valor.

set var1 15

puts "El valor de var1 es: $var1"

El valor de var1 es: 15

• Operaciones Matematicas

Para realizar operaciones matematicas, se utiliza la funcion expr. Ya que todas las variables son cadenas de caracteres.

set suma [expr 5+2]

puts "El resultado de 5 + 2 es $suma"

El resultado de 5 + 2 es 7

Hemos tenido que meter la funcion entre corchetes, ya que de esta manera el resultado de las funciones que hay entre los corchetes queda almacenada en «suma».

Si queremos obtener resultados matematicos con decimales debemos añadirle decimales a los valores.

set division [expr 5.0 / 2.0]

puts "El resultado de 5 / 2 es: $division"

El resultado de 5 / 2 es: 2.5

• if else. Las comparaciones van entre llaves y si queremos poner mas de una condicion lo hacemos mediante && (AND) o || (OR).

set x 4

if { $x < 4 } {

puts "x es menor que 4"

} else {

puts "x es mayor o igual que 4"

}

• switch. Con switch comparamos la variable con una serie de valores.

set x 4

switch $x {

"1" { puts "El valor es 1" }

"2" { puts "El valor es 2" }

"3" { puts "El valor es 3" }

"4" { puts "El valor es 4" }

"5" { puts "El valor es 5" }

default { puts "No se sabe el valor de x" }

}

• for. Con for repetimos las instrucciones hasta que se cumpla la condicion.  En este caso, se inicializa x a 0, se recorrera el bucle  hasta que x sea menor que 10 y se incrementara el valor de x en 1 cada vez que recorra el bucle.

for {set x 0} {$x < 10} {incr x 1} {

put "El valor de X es $x"

}

• foreach. Recorre los valores de una lista, sin tener que conocer el numero de valores.

foreach x { 1 2 3 4 5 6 7 8 9 } {

puts "El valor de X es $x"

}

• while. Es parecido al for, la diferencia es que mientras la condicion del while se cumpla se seguira ejecutando el codigo, en cuanto no se cumpla la condicion, se continua con el resto del codigo.

set x 1

while { $x < 15 } {

put "El valor de X es $x"

incr x 1

}

Bueno esto es lo basico del lenguaje TCL, a groso modo, que se vera mas facilmente con algunos ejemplos en los scripts, que mas adelante ire explicando.