Variables en lenguaje TCL

A diferencia del lenguaje C, las variables Tcl no necesitan ser declaradas antes de su uso. Las variables Tcl se crean usando el comando set la primera vez que se les asigna un valor. Las variables se pueden eliminar usando el comando unset, pero esto no es necesario.

Se accede al valor de una variable a través del símbolo $, también conocido como intercambio de variables.

Tcl es un lenguaje típicamente "débilmente tipado", lo que significa que cualquier tipo puede almacenarse en cualquier variable. Por ejemplo, la misma variable puede almacenar un número, una fecha, una cadena o incluso otro script Tcl.

Ejemplo 1.1:

set foo john

pone Hola, mi nombre es $foo

Salida: Hola, mi nombre es john

Salida: Hola, mi nombre es john

Ejemplo 1.2:

establecer el mes 2

establecer el día 3

establecer año 97

establecer fecha $mes:$día:$año

pone $fecha

Salida:2:3:97

Salida: 2:3:97

Ejemplo 1.2: Ejemplo 1.3:

set foo puts hi

eval $foo

Salida : hola

En este ejemplo, la variable foo almacena otro script Tcl.

Expresiones

Incluidas expresiones matemáticas y expresiones relacionales. Normalmente se utiliza el comando expr.

Ejemplo 2.1:

expr 0 == 1

Salida: 0

Ejemplo 2.2:

expr 1 == 1

Salida: 1

Comparando dos números, verdadero produce 1, falso produce 0

Comparando dos números, obtendrá 1, 0

Ejemplo 2.3:

expr 4 5

Salida: 9

Ejemplo 2.4:

expr sin(2)

Salida: 0.909297

Paso de comando

Reemplace el resultado de la operación con el resultado del comando Tcl en la sección del comando Tcl

Ejemplo 3.1:

Salida Tengo [expr 10 * 2] años y mi coeficiente intelectual es [expr 100 - 25]

Salida: Tengo 20 años este año y mi coeficiente intelectual es 75

Entre corchetes están las banderas pasadas por el comando

Ejemplo 3.2:

establecer my_height 6.0

pone Si mi altura aumenta en 2 pulgadas, tendré [expr $ my_height (2.0 / 12.0)] pies de altura

Salida: Si crezco 2 pulgadas más, mi altura será de 6,16667 pies

Control de flujo de comandos

Tcl Hay flujo de juicio (if-else; switch) y control de bucle ( while; for; foreach)

Ejemplo 4.1:

set my_planet Earth

if {$ my_planet == Earth}

Resultado: si crezco 2 pulgadas más, mi altura será de 6,16667 pies.

{

pone Me siento como en casa.

} elseif {$my_planet == venus} {

pone Esta no es mi casa.

} else {

pone que no soy ni de la Tierra ni de Venus.

}

establecer temperatura 95

si {$temp lt;80}{