elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Aprendemos TCL
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Aprendemos TCL  (Leído 7,251 veces)
Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Aprendemos TCL
« en: 8 Octubre 2008, 18:55 pm »

Aprendemos TCL

Bueno, hoy, voy a introducir unas lecciones del manual de Aprendemos TCL.

1.Aprendemos TCL - Descarga
Bueno, principalmente, el manual es orientado a linux, pero, podeis descargar de activestate: activetcl, lo instalais y listo.
Los que usen debian, ubuntu o otros distros deribados, usad los sudo: (y los que no, usad google)

sudo apt-get install tcl8.4

2.Flujos de salida
Para mostrar variable, datos, texto plano y etc... usaremos la función puts "", bastante conocida de otros lenguajes, aqui un ejemplo:

Código:
puts "Hello World"

3.Aprendemos TCL - Variables
Para crear una variable, tendremos que usar la sentencia SET:
Código:
set <nombre_de_la_variable> <valor>

Por ejemplo, aqui uno:
Código:
set variableinicial 1995

Creariamos una variable llamada variableinicial con el valor 1995.

Para mostrar variables con la funcion puts pondremos la variable como en la mayoria de lenguajes script: $variable.

Para juntar texto con variable, nada mas tenemos que poner $nuestra_variable dentro de los "", no necesitaremos ponerlo fuera ni nada, ejemplo:

Código:
set años 13
puts "Hola, tengo $años años"

Mostrara, Hola, Tengo 13 años.

Tambien podemos crear variables de tipo string, cuando declaremos la variable, el contenido lo ponemos entre "", por ejemplo:

Código:
set hm "Hola mundo"
puts $hm

Y mostrara Hola mundo...

En la proxima lección, aprenderemos los flujos de entrada.


« Última modificación: 21 Junio 2009, 22:17 pm por Erik# » En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Aprendemos TCL
« Respuesta #1 en: 8 Octubre 2008, 19:01 pm »

4.Funciones matematicas

Ya se que decia que pondria flujos de entrada, pero me ha surgido algo interesante para las variables, y son las funciones matematicas, aqui os dejo un listado de las funciones que hay:

Primero operadores:
* / %
Multiplicación, división, resto.

+ -
Sumar, restar.

++ --
Incremento o decremento.

acos( x )
ArcoCoseno de x.

asn( x )
ArcSeno de x.

atan( x )
Arcotangente de x.

atan2( y,x )
De rectangulares ( x,y ) a polares (r, th ). atan2 devuelve th.

ceil ( x )
Primer valor entero mayor o igual que x.

cos( x )
Coseno de x.

cosh( x )
Coseno hiperbólico de x.

exp( x )
Exponencial de x.

floor( x )
Primer valor entero menor o igual que x.

fmod( x, y )
valor en coma flotante resto de x/y.

hypot( x, y )
Devuelve sqrt(x*x + y*y).

log( x )
Logaritmo natural de x.

log10( x )
Logaritmo en base 10 de x.

pow( x,y )
x elevado a y.

sin( x )
Seno de x.

sinh( x )
Seno hiperbólico de x.

sqrt( x )
raíz cuadrada de x.

tan( x )
Tangente de x.

tanh( x )
Tangente hiperbólica de x.

abs( x )
valor absoluto de x.

double( x )
Convierte a x en un valor en coma flotante.

int( x )
trunca x a un entero.

rand()
Genera un número aletario entre 0 y 1. la semilla puede venir del reloj o inicializarse mediante srand.

round( x )
Redondea x a un entero.

srand(arg)
Donde arg debe de ser un entero. Inicializa la semilla para la generación de números aleatorios.


En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Aprendemos TCL
« Respuesta #2 en: 8 Octubre 2008, 19:13 pm »

5.Flujos de entrada
Bueno, llego el momento de aprender una simplisima funcion llamada GETS, nosotros unicamente la utilizaremos para hacer entradas mediante STDIN, es la misma funcion que perl.
Sintaxis:

Código:
gets stdin nombre_de_mi_variable

Esto crearia una variable con los datos introducidos por ti.

Ahora veremos un ejemplo de entrada:

Código:
puts "Introduce tu nombre: "
gets stdin nombre
puts "Hola $nombre"

Como veis es algo simple.
En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Aprendemos TCL
« Respuesta #3 en: 8 Octubre 2008, 19:16 pm »

6.Operaciones matematicas
Como veis, en las variables solo se introducen datos simples, no puedes efectuar funciones matematicas, para eso tenemos la funcion expr que efectua una funcion matematica de las que hemos expuesto antes.

Por ejemplo:

Código:
expr 2+2

Mostraria 4.
Pero si queremos hacer que sumen por ejemplo, 2 variables, hariamos algo asi:

Código:
set a 12
set ab 16
expr $a+$ab

Esto mostraria 28.
Espero que os sirva.
En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Aprendemos TCL
« Respuesta #4 en: 8 Octubre 2008, 19:23 pm »

7.Nuestra primera aplicación
Nuestra primera aplicación sera una calculadora universal de 4 funciones, sumas, restas, mult. y divisiones.

Código:
#!/usr/bin/tcl
puts "Bienvenido a la calculadora universal de: Aprendemos TCL"
puts "Introduce una cifra: "
gets stdin a
puts "Introduce una segunda cifra: "
gets stdin b
puts "Ya tenemos los resultados: "
puts "Suma: "
expr $a+$b
puts "Resta: "
expr $a-$b
puts "Multiplicacion: "
expr $a*$b
puts "Division: "
expr $a/$b
gets stdin pause
puts "Gracias por utilizar la calculadora universal de Aprendemos TCL"
En línea

^Tifa^


Desconectado Desconectado

Mensajes: 2.804


Ver Perfil
Re: Aprendemos TCL
« Respuesta #5 en: 11 Octubre 2008, 04:27 am »

Conozco intermedio programacion Tcl/Tk  :rolleyes:  asi que creo que puedo aportar algo, para la parte de Tcl digo.

Abrir un archivo y leerlo :

Código:
set archivo [ open "archivito.txt" r ]
puts [ read $archivo 100 ]
close $archivo

Si es solo la primera linea :

Código:
set archivo [ open "archivito.txt" r ]
gets $archivo linea
puts $linea
close $archivo

 :-*
En línea

Erik#


Desconectado Desconectado

Mensajes: 1.138


Gundam


Ver Perfil
Re: Aprendemos TCL
« Respuesta #6 en: 11 Octubre 2008, 10:03 am »

Genial, muchas gracias, si puedes poner esto al inicio del todo:

Código:
[size=24pt]8.Archivos[/size]
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
PORQUE NO APRENDEMOS JUNTOS? (MADRID)
Foro Libre
Finfano 3 2,453 Último mensaje 26 Diciembre 2010, 16:53 pm
por Siquillote
Aprendemos Blackberry 10? :)
Programación General
SCU 0 1,722 Último mensaje 2 Mayo 2012, 23:13 pm
por SCU
WannaCry y las lecciones que nunca aprendemos
Noticias
wolfbcn 0 1,383 Último mensaje 18 Mayo 2017, 02:14 am
por wolfbcn
¡No aprendemos! 123456 y algunas de las peores contraseñas de 2018
Noticias
wolfbcn 0 1,255 Último mensaje 14 Diciembre 2018, 14:37 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines