Tutorial de Tcl/Tk

¿Qué es TCL?

TCL es una aplicación de shell que lee el comando TCL desde su entrada estándar o desde un archivo y proporciona los resultados deseados.

TCL es un lenguaje de scripting basado en cadenas y también un lenguaje procedimental. Fue creado por primera vez por John Osterhout en 1989. El propósito del desarrolloping Este lenguaje se integra fácilmente en aplicaciones. El lenguaje se usa comúnmente para interfaces gráficas de usuario (GUI) y pruebas. Por ejemplo, prototipos rápidos.ping, Pruebas interacción de base de datos, etc. En TCL, por defecto, todo es una cadena.

Cómo ejecutar TCL

Hay dos maneras de ejecutar código TCL:

1. Windows La aplicación basada está disponible aquí. archivo exe tcltutor
2. Aplicación basada en Linux

In Linux intérprete interactivo, podemos ejecutar los scripts TCL como se muestra a continuación

Para acceder a la sesión interactiva de TCL, ejecute el siguiente comando

secuencias de comandos TCL

El programa TCL debe tener una extensión .tcl. Cada script en UNIX/LINUX comienza con la ruta del shell TCL

#!/usr/bin/tclsh

Ejemplo:-

#!/usr/bin/tclsh
Puts "Hello World"
Script execution:-
$ chmod +x helloworld.tcl
$ ./helloworld.tcl

Resultado: Hola Mundo

En TCL, el comando “Puts” se utiliza para imprimir mensajes en la consola. La sintaxis de puts es la siguiente.

pone ?-sin salto de línea? ?channelId? cadena

• Sin nueva línea: este parámetro opcional suprime el carácter de nueva línea mediante el comando predeterminado. Pone una nueva línea a cada cadena.
• Canal ID: Este parámetro se utiliza para el canal de entrada estándar (stdin) y el canal de salida estándar (stdout).

Ex:-

%puts "Hello World"
% Hello World
%puts stdout  "Hello World"
% Hello World

Tipo de sustitución TCL

Hay tres tipos de sustituciones en TCL

1. Sustitución de mando
2. Sustitución variable
3. sustitución de barra invertida

Estudiemos uno por uno

Sustitución de mando

Los corchetes se utilizan para sustituir comandos.

Ejemplo:-

% puts [expr 1*3]
% 3

Aquí se evalúa primero el comando entre corchetes. Se devuelve el resultado. Se utiliza “expr” para realizar el cálculo aritmético.

Sustitución variable

TCL realiza la sustitución de variables con la ayuda de $ firmar.

Ejemplo:-

#!/usr/bin/tclsh
set  a  10
puts  a
puts  $a

Aquí creamos una variable llamada "a" y le asignamos el valor "10".

• pone a: Imprimirá la cadena "a" pero no el valor de "a" en la consola
• pone $a: Imprimirá el valor de 'a' en la consola

Ejecutémoslo y verifiquémoslo. Obtendrá el resultado como se muestra a continuación.

$ ./substitution.tcl

a

10

sustitución de barra invertida

En Tcl, la barra invertida se utiliza para escapar.ping caracteres especiales, así como para extender comandos largos a lo largo de varias líneas. Cualquier carácter que siga inmediatamente a la barra invertida permanecerá sin sustitución. En el ejemplo siguiente, puede ver que el carácter especial ” “ , permanece después de la barra invertida.

Comprobemos esto con un ejemplo.

#!/usr/bin/tclsh

puts "This  is my  \"car\""

$ ./backslashsubstitution.tcl
This is my "car"

NOTA: -Para comentar se utiliza cualquier cadena en TCL “#”. Todos los caracteres después del "#" son ignorados por el comando tclsh shell.

Variable TCL

Una variable es un identificador que almacena un valor. En otras palabras, una variable es una referencia a la memoria de la computadora, donde se guarda dicho valor.

Las variables se crean mediante el "comando set" y todos los nombres de las variables distinguen entre mayúsculas y minúsculas. Significa hola, hola, HOLA, todos son diferentes en TCL. Mire algún ejemplo de variable que distingue entre mayúsculas y minúsculas.

% set  name  Techoit
% set  Name  Technoit_1
% set  NAME  Technoit_2

Salida:-

% puts $name
% Technoit

%puts  $Name
%Technoit_1

%puts $NAME
%Technoit_2

Creando variables TCL

Para crear variables en TCL, debe usar "colocar" comando

juego de 10

Para obtener el valor de la variable hay que utilizar el símbolo “$” como

% poner $a

10%

Entonces obtenemos el valor de la variable 'a' como 10.

La información del comando TCL existe

El comando "set" se utiliza para crear y leer variables, como se muestra arriba. El comando "unset" se utiliza para eliminar una variable. El comando "info exists" devuelve 1 si varName existe como variable (o elemento de matriz) en el contexto actual; de lo contrario, devuelve 0 (véase el ejemplo a continuación).

En TCL existen varios comandos de información, como "info exists", "info functions", "info global", etc. Aquí veremos un ejemplo de "info exists".

Ex:-

% set a 20
% puts $a
% 20
% puts [info exists a]
% 1
% unset a
%puts [info exists a]
% 0

Diferentes brackets y su comportamiento.

{} -> Llaves

En TCL, las llaves agrupan palabras para formar argumentos. Se utilizan para definir un bloque diferido; es decir, se ejecuta DESPUÉS del resto del comando en la línea actual. Los caracteres entre llaves se pasan al comando tal como están escritos.

Algunos puntos para recordar

1. No se permite la sustitución de variables dentro de {} llaves
2. Solía ​​​​crear el tipo de datos de lista.

Ejemplo:-

% set x 10
% puts {$x}
% $x

% establecer número {1 2 3 4 5} -> Aquí el número es un tipo de datos de lista

%pone $número

% 1 2 3 4 5

[] -> llaves cuadradas

Los corchetes se utilizan para crear comandos anidados. En pocas palabras, la salida de un comando se pasa como argumento a otro. Los corchetes definen un bloque que se ejecuta ANTES del resto del comando en la línea actual, y el resultado se inserta en la línea.

Ej .: -

% set x 10
% puts "y : [set y [set x 10]]"
%y : 10
% puts "x : $x"
%x : 10

() -> llaves redondas

Este comando se utiliza para crear un tipo de datos de matriz y también para indicar la precedencia del operador.

% set a(1) 10
% set a(2) 20

Aquí "a" es una matriz con valores 10 y 20. Consulte los comandos a continuación para imprimir claves, pares clave-valor y valores de la matriz.

% puts [array get a] ->  To print key value pairs we use this command
% 1 10 2 20
% puts [array names a]  -> To print only keys
% 1 2
% puts $a(1)   -> To print first value of array
% 10
% puts $a(2)  -> To print second value of array
% 20

Para imprimir el valor “Nth” de la matriz a, usaremos Puts $a(N)

Argumentos de la línea de comandos TCL

Los elementos de datos pasados ​​a un script desde la línea de comando se conocen como argumentos. El número de argumentos de la línea de comando para un script Tcl se pasa como variable global argc. El nombre de un script Tcl se pasa al script como variable global argv0, y el resto de los argumentos de la línea de comando se pasan como una lista en argv.

TCL tiene 3 variables predefinidas como

$argc   -> indicates the number of arguments passed to the script

$argv   -> indicates list of arguments

$argv0  -> indicates the name of script

Ex:-

arg-script.tcl
#!/usr/bin/tclsh
puts   "number of arguments passed to the scripts : $argc"
puts  "list of arguments are passed to the script: $argv"
puts  "the name of scripts is: $argv0"

$ ./arg-script.tcl  10 20 30

salida:-

• Número de argumentos pasados ​​a los scripts: 3
• La lista de argumentos se pasa al script: 10 20 30
• El nombre del script es: arg-script.tcl

Expresión TCL y Operator

La expresión se construye a partir de operandos y operadores. Se evalúa con el comando “expr”. OperaLos operadores se evalúan en función de la precedencia y la asociatividad. El lenguaje TCL tiene operadores integrados como los siguientes

Aritmética Operator

Una expresión TCL consta de una combinación de operandos, operadores y paréntesis. Veamos un ejemplo de operadores aritméticos en TCL

+ Agregar dos o más operandos

Ex:-

%set a 10
%set b 20
%puts [expr $a + $b]
30

– Subtracdos o más operandos

Ex:-

%set a 20
%set b 10
%puts [expr $a - $b]
10

*Multiplica dos o más operandos

%set a 20
%set b 10
%puts [expr $a * $b]
200

/ Dividir numerador por denumerador

%set a 20
%set b 10
%puts [expr $a / $b]
2

El operador de módulo divide el numerador por el desnumerador pero devuelve un recordatorio

%set a 20
%set b 10
%puts [expr $a % $b]
0

Relacional Operator

Comprueba si el valor del operando izquierdo es mayor que el valor del operando derecho. Si es así, la condición se vuelve verdadera y devuelve 1; de lo contrario, devuelve 0.

%set a 20
%set b 10
%puts [expr $a > $b]
1

Comprueba si el valor del operando izquierdo es menor que el valor del operando derecho. Si es así, la condición se vuelve verdadera y devuelve 1; de lo contrario, devuelve 0.

%set a 10
%set b 20
%puts [expr $a < $b]
1

>= Comprueba si el valor del operando izquierdo es mayor o igual que el valor del operando derecho, si es así, la condición se vuelve verdadera y devuelve 1, de lo contrario devuelve 0

%set a 20
%set b 10
%puts [expr $a >= $b]
1

<= Comprueba si el valor del operando izquierdo es menor o igual que el valor del operando derecho, si es así, la condición se vuelve verdadera y devuelve 1, de lo contrario devuelve 0

%set a 20
%set b 10
%puts [expr $a <= $b]
0

!= Comprueba si los valores de dos operandos son iguales o no, si los valores no son iguales, la condición se vuelve verdadera y devuelve 1, de lo contrario devuelve 0

%set a 20
%set b 10
%puts [expr $a != $b]
1

== Comprueba si los valores de dos operandos son iguales o no, si es así, la condición se vuelve verdadera y devuelve 1, de lo contrario devuelve 0

%set a 20
%set b 10
%puts [expr $a == $b]
0

lógico Operator

&& Si ambos operandos son distintos de cero, entonces la condición se vuelve verdadera y devuelve 1; de lo contrario, devuelve 0.

%set a 20
%set b 10
%puts [expr $a && $b]
1

|| Si alguno de los dos operandos no es cero, entonces la condición se vuelve verdadera y devuelve 1; de lo contrario, devuelve 0.

%set a 0
%set b 10
%puts [expr $a || $b]
1

¡Se utiliza para invertir el resultado de cualquier expresión! En la salida, se puede observar que el valor de 'a' ha pasado de 0 a 1, mientras que el valor de 'b' ha pasado de 1 a 0.

%set a 0
%set b 1
%puts [expr !$a]
1
%puts [expr !$b]
0

Bitwise Operator

& (bit a bit y) realiza la operación bit a bit y sigue la siguiente tabla para la operación.

Ex:-

%set A 10
%set B 20

Follow the sequence to convert decimal to binary number
128 64 32 16 8 4 2 1
10 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 0 1 0 1 0
20 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 1 0 1 0 0

So now as per above tabular rules

A & B will be 0 0 0 0 0 0 0 0

| (bit a bit o) realice la operación bit a bit y siga la siguiente tabla

Ex:-

%set A 10
%set B 20

Follow the sequence to convert decimal to binary number
128 64 32 16 8 4 2 1
10 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 0 1 0 1 0
20 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 1 0 1 0 0

So now as per above tabular rules

A | B will be 0 0 0 1 1 1 1 0

^ (bit a bit exclusivo o) realiza la operación bit a bit y sigue la siguiente tabla

Ex:-

%set A 10
%set B 20

Follow the sequence to convert decimal to binary number
128 64 32 16 8 4 2 1
10 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 0 1 0 1 0
20 binary equivalents will be
128 64 32 16 8 4 2 1  à  0 0 0 1 0 1 0 0

So now as per above tabular rules

A ^ B will be 0 0 0 1 1 1 1 0 à 30

El operador ~ (negación bit a bit) cambia cada 1 a 0 y 0 a 1, siga la tabla como referencia

%set A 7
%puts [expr ~$A]
-8

Ternario Operator (?:)

La sintaxis es

condition-expression?  expression_1: expression_2

Si condition-exp es verdadera, se evalúa exp1 y se devuelve el resultado. Si cond-exp es falso, se evalúa exp2 y se devuelve su resultado. En nuestro ejemplo, exp1 es verdadero ya que el valor de A es mayor que 6.

%set A 7
%set result [expr $A > 6 ? true : false]
%puts $result
true

Shift Operator

Shift El operador se denota por el operador de desplazamiento a la izquierda << o por el operador de desplazamiento a la derecha >>. Para el operador de desplazamiento a la izquierda <<, el valor del operando izquierdo se mueve a la izquierda la cantidad de bits especificada por el operando derecho.

%set A 7
%set result [expr $A << 2]
%puts $result

Para el operador de desplazamiento a la derecha >>, el valor del operando izquierdo se mueve a la derecha la cantidad de bits especificada por el operando derecho.

%set A 7
%set result [expr $A >> 2]
%puts $result

Comparación de cadenas Operator

El operador de comparación de cadenas compara el valor de ambos operandos. Si los valores de los operandos son iguales, devuelve 1; de lo contrario, devuelve 0. En el ejemplo, el valor de A y B es 7, por lo tanto, el resultado es 1.

Ex:-

%set A 7
%set B 7
%set result [expr $A eq $B]
%puts $result
1

Ne (si el valor de ambos operandos es diferente, devolverá 1; de lo contrario, devolverá 0)

%set A 7
%set B 8
%set result [expr $A ne $B]
%puts $result
1

Operador de exponenciación

Pow () y ** ambos son iguales. Siempre devuelve un valor flotante.

** indica la potencia del operando deseado.

Ex:-

%set A 7
%set result [expr $A ** 2]
%puts $result
49

Lista Operator

Si el valor requerido se encuentra en la lista definida, devuelve 1; de lo contrario, devuelve 0. En el ejemplo, el valor 1 existe en la variable 'a', por lo que devolverá 1.

set a {1 2 3}
if {1 in $a} {
puts "ok"
} else {
puts "fail"
}
Output: ok

ni, si el valor requerido se encuentra en la lista definida, devolverá 0; de lo contrario, devolverá 1.

Ex :-

set a {1 2 3}
if {1 ni $a} {
puts "ok"
} else {
puts "fail"
}
Output: fail

Control de flujo TCL y toma de decisiones.

Existen varios comandos de control de flujo y toma de decisiones que se utilizan para alterar el flujo de un programa. Las ejecuciones del programa siempre comienzan desde la parte superior del archivo fuente hasta el final.

La declaración If consta de una expresión booleana seguida de una o más declaraciones.

Si … declaración

Sintaxis:-

si expr? entonces? cuerpo

Si expr se evalúa como verdadero, entonces se ejecuta el cuerpo del comando.

Ex:-

set age 10

if {$age < 20} {
puts "Age is less than 20"
}

Output: Age is less than 20

Si … si no

Sintaxis:-

Si expresión? entonces cuerpo_1 más cuerpo_2

Si la expresión se evalúa como verdadera, devolverá cuerpo_1; de lo contrario, devolverá cuerpo_2

Ex:-

set age 10

if {$age < 20} {
puts "Age is less than 20"
} else {
Puts "Age is greater than 20"
}

output: Age is less than 20

Declaración anidada if...else

Significa que una declaración si o si no... si se puede poner dentro de otra declaración si o si no... si.

Sintaxis:-

If  {expression_1} {
Body_1
If {expression_2} {
Body_2
}
}

Ex:-

set a 10
set b 20

if {$a == 10} {
# if expression_1 is true then it will go to expression_2
if {$b == 20} {
#if expression_2 is true then it will print the below string
puts "value of a is 10 and b is 20"
}
}

o/p: value of a is 10 and b is 20

Declaración de cambio

La declaración de cambio permite probar la igualdad de una variable con una lista de valores. Evalúa la lista de valores y devuelve el resultado de esa evaluación. Si ningún valor coincide, se devolverán los valores predeterminados.

Ejemplo:

#!/usr/bin/tclsh

# switch_cmd.tcl

set domain x
switch $domain {

    x { puts "x" }
    y { puts "y" }
    z { puts "z" }
    default { puts "unknown" }
}

Interruptor anidado

La declaración de cambio anidada significa una declaración de cambio dentro de una declaración de cambio.

Sintaxis :-

switch <switchingstring1> {
   <matchstring1> {
      body1
      switch <switchingstring2> {
        <matchstring2> {
           body2
         }
          ...
    switch <switchingstringN> {
          <matchStringN> {
           bodyN
         }
      }
   }

EjemploEn el siguiente ejemplo, el valor de a es 100, y con el mismo código usamos una instrucción switch para otro valor de b, que es 200. La salida mostrará el valor de a y de b.

#!/usr/bin/tclsh

set a 100
set b 200

switch $a {
   100 {
     puts "The value of a is $a"
     switch $b {
        200 {
           puts "The value of b is $b"
        }
     }
   }
}

Salida:-

el valor de a es 100

el valor de b es 200

Declaración de bucle TCL

La instrucción loop permite ejecutar una instrucción o grupo de instrucciones varias veces. Tcl proporciona los siguientes tipos de loop:ping .

mientras comando

Cuando una condición dada es verdadera, se repite una declaración o un grupo de declaraciones que están en el cuerpo del bucle.

Sintaxis:

While  {condition} {
    Statements
}

Ex :-

#!/usr/bin/tclsh

Set a 10

While {$a < 12} {
    Puts "a is $a"
    incr a
}

Salida:-

un es 10

un es 11

En el ejemplo anterior, se utiliza el comando integrado "incr". Esto significa que el valor de 'a' se incrementará en 1 hasta alcanzar el valor máximo (<12).

Para el mando

Ejecuta una secuencia de instrucciones varias veces en función del valor de un contador. Este contador se incrementa o decrementa automáticamente durante cada repetición del bucle.

Sintaxis :-

For {start} {test} {next} {
Body
}

Ejemplo: En el siguiente ejemplo, el valor de 'i' se establece en 0 y se incrementa hasta que el valor sea <5.

#!/usr/bin/tclsh

for {set i 0} {$i < 5} {incr i} {
put $i
}

Salida:-

0
1
2
3
4

Preguntas Frecuentes